I'm using the following code in the middle of a procedure to email a file to another user:
Dim OL As Object
Dim MailSendItem As Object
Dim olmailitem As String
Set OL = CreateObject("Outlook.Application")
Set MailSendItem = OL.CreateItem(0)
With MailSendItem
.Subject = "Email"
.Body = strBody
.To = strEmail
.Attachments.Add("C:File.xls")
.Send
End With
I state in the user guide that the user must have MS Exchange as it seems to work on my work and home PC (both with MS Exchange). The problem is some users with MS Exchange don't have the email send automatically. Any suggestions???
Dim OL As Object
Dim MailSendItem As Object
Dim olmailitem As String
Set OL = CreateObject("Outlook.Application")
Set MailSendItem = OL.CreateItem(0)
With MailSendItem
.Subject = "Email"
.Body = strBody
.To = strEmail
.Attachments.Add("C:File.xls")
.Send
End With
I state in the user guide that the user must have MS Exchange as it seems to work on my work and home PC (both with MS Exchange). The problem is some users with MS Exchange don't have the email send automatically. Any suggestions???