Hi:
I´m using this macro to send e-mails with pdf attachment. (qv community provided by)
As soon as I change the recipient to one outside the network, it stops working. (error: stops in objEmail.Send)
Function sendMailTest()
Dim objEmail
Const cdoSendUsingPort = 1 ' Send the message using SMTP
Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM
"mail.myserver.com"
Const SMTPPort = 25 ' Port number for SMTP
Const SMTPTimeout = 60 ' Timeout for SMTP in seconds
'Sending mail
Set objEmail = CreateObject("CDO.Message")
Set objConf = objEmail.Configuration
Set objFlds = objConf.Fields
'---------------------------------------------------------------------
' SMTP server details
.Item(
"http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item(
"http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer
.Item(
"http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoAnonymous
.Item(
"http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPPort
.Item(
"http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
.Item(
"http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = SMTPTimeout
'---------------------------------------------------------------------
End With
objEmail.To = "christian@myserver.com" 'Email Recipient ONLY INSIDE THE NETWORK
objEmail.From = "christian@myserver.com" 'Email Sender
objEmail.Subject = "hola"
objEmail.TextBody = "hola"
objEmail.AddAttachment "C:\temp\VITORIA.pdf" ' Attachement
objEmail.Send
Set objFlds = Nothing
Set objConf = Nothing
Set objEmail = Nothing
msgbox ("Test Mail Sent")
end function
Does anybody know how to authenticate this macro with user & password?
Thanks in advance.
