Hi all,

I have a macro which sends emails to lots of different contacts sending different information.

The macro works perfectly fine when I run I use my own email address, it also works fine when I use another person's email address and run it from my own computer (PC). However, I need it to be sent from another one of my colleagues email address and it is not working for theirs!

The only thing that is different is that she uses a mac. Here are my configuration settings 

Set objMsg = CreateObject("CDO.Message")
                Set msgConf = CreateObject("CDO.Configuration")
                  
                ' Server Configuration
                msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
                msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
                msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
                msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
                msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = myemail
                msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = myPassword
                msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
                msgConf.Fields.Update
Here is the error message I get.


The message could not be sent to the SMTP server. The transport error code
was 0x80040217. The server response was not available



I have searched the web endlessly and still cannot find a solution to my particular problem.

I have tried changing the server ports to 25 and still not working.


HELPP!