Mailing asp

[jlamenza 0]

tenho um form em asp e queria pegar 3 campos e salvar em um bd em acess para fazer um mailling alguem me ajuda?

[xanburzum 169]

qual componente de email irá usar ?

 

CDOSYS ?!

[jlamenza 0]

como eu vejo isso?

[xanburzum 169]

você quem decide qual componente para envio de email irá usar, geralemente usamos o CDOSYS, que é nativo do ASP.

Qual seu nível de conhecimento em ASP ?

[jlamenza 0]

Poxa eu estou num estágio nunca vi asp na vida rs... sei java por ex um pouco.

 

ai me pediram para pegar 3 campos de um form em asp e jogar eum bd acess para depois fazer um mailling com esses dados. só que nào sei por onde começar queria um help =X

[xanburzum 169]

dá uma procurada no lab. de script, coloquei alguns tutoriais e exemplos pode te ajudar e tendo dúvida poste aqui.

[jlamenza 0]

Beleza vou ver.

 

Mas por exemplo pra isso que eu preciso eu não poderia fazer um Crud?

[xanburzum 169]

um exemplo bem simples:

 

do form, recupere os campos atraves do request.form("nome do campo")

crie a conexao, crie a SQL , no caso um INSERT, a´pos inserir use o SQL SELECT

para recuperar os emails e insira no código abaixo do CDOSYS.

 

<%
'cria o objeto para o envio de e-mail
Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'cria o objeto para configuração do SMTP
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SMTP
objCDOSYSCon.Fields
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

'porta do SMTP
objCDOSYSCon.Fields
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'porta do CDO
objCDOSYSCon.Fields
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'timeout
objCDOSYSCon.Fields
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objCDOSYSCon.Fields.update

'atualiza a configuração do CDOSYS para o envio do e-mail
Set objCDOSYSMail.Configuration = objCDOSYSCon

'e-mail do remetente
objCDOSYSMail.From = "seuemail@seudominio"

'e-mail do destinatário
objCDOSYSMail.To = rs("email")

'assunto da mensagem
objCDOSYSMail.Subject = "Teste do CDOSYS"

'conteúdo da mensagem
objCDOSYSMail.TextBody = "Teste do componente CDOSYS"
'para envio da mensagem no formato html altere o TextBody para HtmlBody
'objCDOSYSMail.HtmlBody = "Teste do componente CDOSYS"

'objCDOSYSMail.fields.update
'envia o e-mail
objCDOSYSMail.Send

'destrói os objetos
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

response.write "E-mail enviado para seuemail@seudominio ..."
%>

 

acesse este artigo