Enviar Emails

Pesquise aqui no Fórum que encontrará vários exemplos, principalmente em nosso Laboratório de Scripts.

Qualquer dúvida sobre adaptação, poste aqui.

Obs. Desconsidere posts utilizando o componente CDONTS

<%
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 = ConfigSendEmailGmail =
.Send
End With
set Gmail = nothing
set Config = nothing
set Campos = nothing%>
Estive a ver este codigo só que este codigo está em VB certo por causa do DIM, mas eu estou programando em javascript, será que me pode ajudar a modificar o código?

var 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;

 

Gmail.To = "patriqueandre@gmail.com";

Gmail.From = "oi tudo bem <patriqueandre@gmail.com>";

Gmail.Subject = "Assunto";

Gmail.HTMLBody = "meu nome é zé pequeno";

Gmail.Sender = "Patrique";

Gmail.Organization = "resende";

Gmail.ReplyTo = "teste@destinatario.com.br";

set Gmail.Configuration = ConfigSendEmailGmail;

Gmail.Send;

Posta se houver algum erro.

Não esqueça de usar um e-mail do seu domínio como remetente, criar a conta de e-mail (cerifique logando no webmail) e habilitar o uso de SMTP pelo painel do Google Apps.

MAS isso do google apps tem um custo certo?

mais info.

parece k é de acordo com o numero de user k serão atendidos pela sua implementação

não tou conseguindo fazer, nao existe outra maneira de enviar email, voce xanburzum nunca utilizou este tipo de exemplo pra fazer um envio de email?

Amadeufm, vamos voltar a sua dúvida inicial. Seria apenas configurar um envio de e-mail, correto?

Você tem o código acima e encontrou erro onde? Você está utilizando qual serviço de e-mail? Gmail? Servidor próprio?

eu estou a utilizar o gmail com email. eu neste momento estou a trabalhar localhost e pelo ISS

o que é k preciso de configurar?

Ok. Provavelmetne você não tem o CDOSYS configurado localmente, então encontrará problemas ao executar o código.

A configuração acima (post #4), basta você alterar:

Campos.Item(schema & "sendusername") = "seuemail@gmail.com"; //para seu e-mail

Campos.Item(schema & "sendpassword") = "suasenha"; //para sua senha

pois provavelmente deve me faltar a configuraçao do CDOSYS? como é que configuro?

no código está a dar me o seguinte erro

var Gmail.Configuration = Config.SendEmail(Gmail);
--------^ e diz o seguinte erro Error Type:
Microsoft JScript compilation (0x800A03EC)
Expected ';'

olha este exemplo, verifique o SSL tb

Dim objCDOSYSMail
Dim objCDOSYSCon
Set objCDOSYSMail = Server.CreateObject("CDO.Message")

Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' SSL tem que ser TRUE!
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

'o e-mail completo que você utiliza no google apps (não esqueça de habilitar SMTP no painel fo Google apps!
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "eu@teste.com"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "_sua_senha"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

 objCDOSYSCon.Fields.update
 Set objCDOSYSMail.Configuration = objCDOSYSCon

 objCDOSYSMail.From = "patriqueandre@gmail.com";
 objCDOSYSMail.To = "Nome <email@dominio.com>"
 objCDOSYSMail.Subject = "Assunto"
 objCDOSYSMail.HtmlBody = email
 objCDOSYSMail.Send

 Set objCDOSYSMail = Nothing
 Set objCDOSYSCon = Nothing

Tenta com esse código.

schema = "http://schemas.microsoft.com/cdo/configuration/";

Set iMsg = Server.CreateObject("CDO.Message");
Set iConf = Server.CreateObject("CDO.Configuration");
Set campos = iConf.Fields;

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;

Set iMsg.Configuration = iConf;
iMsg.To = destinatario + "<" & emailDestinatario + ">";
iMsg.From = remetente + "<" & emailRemetente + ">";
iMsg.ReplyTo = remetente + "<" & emailRemetenteRetorno + ">";
iMsg.Subject = assunto;
iMsg.HtmlBody = texto;

iMsg.Send;

com esse código erro nesta linha

var iMsg.Configuration = iConf; e o erro é o mesmo k o outro hargon.

xanburzum eu ainda n consegui fazer a conta no google apps, como é k voce fez iss? é que eu n consigo, só pagando

naun, naun tenho conta lá, mas parece k dependendo da quantidade de user o valor é bem menor, naun sei se hoje oferecem gratuitamente...

qual o numero do erro gerado...

o erro é o seguinte

Error Type:

Microsoft JScript compilation (0x800A03EC)

Expected ';'

/pais/email.asp, line 26, column 4

Set iMsg.Configuration = iConf;

---^

vcesta trabalhando com JScript, o exemplo k te passei é VBscript

esse erro seu normalmente significa que você deixou um carácter inválido no final de uma linha,

sim eu estou a trabalhar com javascrip...

este erro é um carácter inválido

você precisa para identificar o tipo de objeto antes que você possa instanciar uma variável.

mude o "Set" para "var", e "iMsg.Send" para "iMsg.Send ()"

tente para teste o VBS