Hi,
I have the code below to send wire remittance to vendors how can I modify it instead of envelope in excel to open in Outlook instead,
thanks,
I have the code below to send wire remittance to vendors how can I modify it instead of envelope in excel to open in Outlook instead,
VBA Code:
Sub Send_Range()
Dim cel As Range
' Select the range of cells on the active worksheet.
ActiveSheet.Range("A6:D31").Select
For Each cel In Range("A10:A18")
If cel = "" Then cel.EntireRow.Hidden = True
Next
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True
' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "Hi" & " " & ActiveSheet.Range("B3") & "," & vbCrLf & vbCrLf & ActiveSheet.Range("APPLY") & vbCrLf & vbCrLf '"Please apply the payment to our account or invoice(s) listed below."
.Item.To = ActiveSheet.Range("B4")
.Item.CC = ActiveSheet.Range("B5") & ";" & "navigata.ap@distributel.ca"
.Item.Subject = ActiveSheet.Range("EFT") '"Wire Remittance $"
.Item.body = ActiveSheet.Range("EFT")
.Item.Display
End With
End Sub
thanks,