I am currently trying to automate a receipt system. I have successfully managed to create an email based on calculated Excel data. The email is created using the following routine.
My problem is that there will be several people using this system so I would like to include a reply address which is different from the sender. Alternatively, I would like to send the email from a different account (but I have to assume that the users will have their own email accounts open).
Any suggestions gratefully received.
callref="12345"
strbody = "The main text of the email"
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "John Smith"
.BCC = ""
.Subject = "Test email receipt - " & callref
.Body = strbody
.Display 'or .Send - still developing!!!
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
My problem is that there will be several people using this system so I would like to include a reply address which is different from the sender. Alternatively, I would like to send the email from a different account (but I have to assume that the users will have their own email accounts open).
Any suggestions gratefully received.