Mailing from within VBA code fails

[TPFKAS]

I am using this code for mailing a file using gmail:

       Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")


    iConf.Load -1
    Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Mailfrom
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = MailPW
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = MailSMTP
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Update
    End With
DoEvents
    With iMsg
        Set .Configuration = iConf
        .To = Mailto
        .CC = ""
        .BCC = ""
        .From = Mailfrom
        .Subject = MailSubject
        .textbody = ""
        .AddAttachment FileName
        .send
    End With

This code works flawless at home connected to my home network. But on the road when connecting my laptop to my phone using as a hotspot it does not. I tried changing the SMTP server port to 465 but that does not help.
Any ideas what can cause this problem?

 

[TPFKAS]

I already found the problem. It wasn't a VBA issue but a security setting in the Gmail account not allowing unknown apps to send mails. I can't quite figure out why is does work over my home network, but it does not when going over the 5G network.

 

[Logit]

.
Which security setting required changing and how was it changed ? This will help others in the future.

Thanks.

 

[TPFKAS]

It's the setting for "allowing less secure apps".
https://support.google.com/accounts/answer/6010255?hl=en

 

[Logit]

Thanks !