vankootens
08-23-2016, 08:02 AM
Function: Recipient address = I25 and sends with attachments in C:\Users\...
So far I have the first part:
Sub Mail()
Dim OutlookApp As Object
Dim Mess As Object, Recip
Recip = [I25].Value
Set OutlookApp = CreateObject("Outlook.Application")
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
.To = Recip
.Display
End With
End Sub
Need the second part functionality.
Thank you in advance!
So far I have the first part:
Sub Mail()
Dim OutlookApp As Object
Dim Mess As Object, Recip
Recip = [I25].Value
Set OutlookApp = CreateObject("Outlook.Application")
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
.To = Recip
.Display
End With
End Sub
Need the second part functionality.
Thank you in advance!