envio de email com gmail

[Patrique 0]

Segue abaixo um script aonde vocês podem utilizar o gmail

 

<%
Dim Gmail, Config, Campos

Set Gmail = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")
Set Campos = Config.Fields

schema = "http://schemas.microsoft.com/cdo/configuration/"
Campos.Item(schema & "sendusing") = 2
Campos.Item(schema & "smtpserver") = "smtp.gmail.com"
Campos.Item(schema & "smtpserverport") = 465
Campos.Item(schema & "smtpauthenticate") = 1
Campos.Item(schema & "sendusername") = "seuemail@gmail.com"
Campos.Item(schema & "sendpassword") =  "suasenha"
Campos.Item(schema & "smtpusessl") = 1
Campos.Update

With Gmail
.To = "patriqueandre@gmail.com"
.From = "oi tudo bem <patriqueandre@gmail.com>"
.Subject = "Assunto"
.HTMLBody = "meu nome é zé pequeno"
.Sender = "Patrique"
.Organization = "resende"
.ReplyTo = "teste@destinatario.com.br"
Set .Configuration = Config
SendEmailGmail = .Send
End With

set Gmail = nothing
set Config = nothing
set Campos = nothing
%>

[Ted k' 126]

É sempre bom ter mais exemplos, boa Patrique