Code works for outlook 2010 but not 2013

**Legend Rubber** · 02-13-2015, 12:32 PM

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.

**6StringJazzer** · 02-13-2015, 05:00 PM

I ran your code and it ran fine in Excel 2013.

However, you have not shown all your code. It might help to show declarations--even better would be all the code in the entire Sub.

Also be aware that there are many differences between two computers, and the version of Excel might not be the issue here. The most obvious thing is the existence of the folder. I did not actually create this folder, create an attachment, etc., etc., but I got this string as the file string using these values:

Folder=testfolder
SONumber=99
SoldTo=testclient

and got this path. Does this look like what you are expecting?

testfolderSalesOrders\1. Unscheduled\SalesOrder 99-testclient.pdf

By the way, why start a string with the null string?

                        dname = "" & Range("Folder") & "SalesOrders\1. Unscheduled\SalesOrder " & Str(Range("SONumber")) & "-" + Range("SoldTo") & ".pdf"