Enviar Emails

[Amadeufm 0]

boas, pessoal...

 

Alguem me pode ajudar a enviar email a partir do asp?

eu queria por exemplo em viar um email pra o gmail

[hargon 64]

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

[Amadeufm 0]

<%
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?

[hargon 64]

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.

[xanburzum 169]

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.

[Amadeufm 0]

MAS isso do google apps tem um custo certo?

[xanburzum 169]

mais info.

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

[Amadeufm 0]

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?

[hargon 64]

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?

[Amadeufm 0]

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

o que é k preciso de configurar?

[hargon 64]

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

[Amadeufm 0]

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

[xanburzum 169]

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

[hargon 64]

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;

[Amadeufm 0]

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

[xanburzum 169]

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...

[Amadeufm 0]

o erro é o seguinte

Error Type:

Microsoft JScript compilation (0x800A03EC)

Expected ';'

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

Set iMsg.Configuration = iConf;

---^

[xanburzum 169]

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,

[Amadeufm 0]

sim eu estou a trabalhar com javascrip...

[xanburzum 169]

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