i have the following code...
Worksheets("SalesOrder").Activate
Dim olapp As Object, olmail As Object
toname = Range("ClientEmail")
Set olapp = CreateObject("Outlook.Application")
dname = "" & Range("Folder") & "SalesOrders\1. Unscheduled\SalesOrder " & Str(Range("SONumber")) & "-" + Range("SoldTo") & ".pdf"
Set olmail = olapp.createitem(olmailitem)
olmail.To = toname
olmail.Subject = "Order Confirmation"
olmail.Body = "Thank you very much for the order." & vbCrLf _
& "" & vbCrLf _
& "Please review your order confirmation carefully and notify me of any changes that need to be made. Please pay careful attention to be sure the roof heights and the number of pieces in the floors to avoid confusion." & vbCrLf _
& "" & vbCrLf _
& "" & vbCrLf _
& "This message, and any attachments, may contain privileged and confidential information. If you are not the intended recipient, you are hereby notified that any dissemination, copying, or disclosure of the information herein is strictly prohibited. If you have received this e-mail in error, please notify the sender immediately and delete it in its entirety."
olmail.Attachments.Add dname
olmail.send
Problem is that this works fine on my computer running outlook 2010, but doesn't work on a co-workers running 2013... it doesn't bug, it just doesn't send the email...
Any ideas? i would like it to send on either 2010 of 2013, but if not possible, 2013 is better.
Bookmarks