PROBLEMA NO ENVIO DE E-MAIL
Estou com problema no envio de e-mail apenas no server [Ô]smtp.live.com[Ô], alguem pode me ajudar?
Segue abaixo o código:
Dim Message, Configuration, Fields
Set Message = CreateObject([Ô]CDO.Message[Ô])
Set Configuration = CreateObject([Ô]CDO.Configuration[Ô])
Set Fields = Configuration.Fields
schema = [Ô]http://schemas.microsoft.com/cdo/configuration/[Ô]
Fields.Item(schema & [Ô]sendusing[Ô]) = 2
Fields.Item(schema & [Ô]smtpserver[Ô]) = [Ô]smtp.live.com[Ô]
Fields.Item(schema & [Ô]smtpserverport[Ô]) = 25
Fields.Item(schema & [Ô]smtpauthenticate[Ô]) = 1
Fields.Item(schema & [Ô]smtpusessl[Ô]) = True
Fields.Item(schema & [Ô]sendusername[Ô]) = Email [ô]e-mail de envio
Fields.Item(schema & [Ô]sendpassword[Ô]) = Senha [ô]senha de envio
Fields.Item(schema & [Ô]smtpconnectiontimeout[Ô]) = 30
Fields.Update
strHTML = [Ô]<HTML>[Ô]
strHTML = strHTML & [Ô]<HEAD>[Ô]
strHTML = strHTML & [Ô]<BODY>[Ô]
strHTML = strHTML & [Ô]<b> This is the test HTML message body</b></br>[Ô]
strHTML = strHTML & [Ô]<b> [Ô] & Mensagem & [Ô]</b></br>[Ô]
strHTML = strHTML & [Ô]</BODY>[Ô]
strHTML = strHTML & [Ô]</HTML>[Ô]
With Message
.To = EmailDestino
.from = Nome & [Ô]<[Ô] & Email & [Ô]>[Ô]
.Subject = Assunto
.TextBody = Mensagem
.Sender = Nome
[ô] .HTMLBody = strHTML
.AddAttachment App.Path & [Ô]\[Ô] & G_Arquivo & [Ô].pdf[Ô]
Set .Configuration = Configuration
EnviarEmailCdosys = .Send
End With
Set Message = Nothing
Set Configuration = Nothing
Set Fields = Nothing
Desde já agradeço.
Segue abaixo o código:
Dim Message, Configuration, Fields
Set Message = CreateObject([Ô]CDO.Message[Ô])
Set Configuration = CreateObject([Ô]CDO.Configuration[Ô])
Set Fields = Configuration.Fields
schema = [Ô]http://schemas.microsoft.com/cdo/configuration/[Ô]
Fields.Item(schema & [Ô]sendusing[Ô]) = 2
Fields.Item(schema & [Ô]smtpserver[Ô]) = [Ô]smtp.live.com[Ô]
Fields.Item(schema & [Ô]smtpserverport[Ô]) = 25
Fields.Item(schema & [Ô]smtpauthenticate[Ô]) = 1
Fields.Item(schema & [Ô]smtpusessl[Ô]) = True
Fields.Item(schema & [Ô]sendusername[Ô]) = Email [ô]e-mail de envio
Fields.Item(schema & [Ô]sendpassword[Ô]) = Senha [ô]senha de envio
Fields.Item(schema & [Ô]smtpconnectiontimeout[Ô]) = 30
Fields.Update
strHTML = [Ô]<HTML>[Ô]
strHTML = strHTML & [Ô]<HEAD>[Ô]
strHTML = strHTML & [Ô]<BODY>[Ô]
strHTML = strHTML & [Ô]<b> This is the test HTML message body</b></br>[Ô]
strHTML = strHTML & [Ô]<b> [Ô] & Mensagem & [Ô]</b></br>[Ô]
strHTML = strHTML & [Ô]</BODY>[Ô]
strHTML = strHTML & [Ô]</HTML>[Ô]
With Message
.To = EmailDestino
.from = Nome & [Ô]<[Ô] & Email & [Ô]>[Ô]
.Subject = Assunto
.TextBody = Mensagem
.Sender = Nome
[ô] .HTMLBody = strHTML
.AddAttachment App.Path & [Ô]\[Ô] & G_Arquivo & [Ô].pdf[Ô]
Set .Configuration = Configuration
EnviarEmailCdosys = .Send
End With
Set Message = Nothing
Set Configuration = Nothing
Set Fields = Nothing
Desde já agradeço.
Faça seu login para responder