pra vc que sonha em mandar email com autenticação

[kauebranco 0]

Bom pessoal !!!foram muitos dias de pesquisa e correria pra descobrir isso !!!axei estranho ninguem saber pois axei que isso era uma coisa que todos ja deviam ter pelo menos se deparado !!mais enfim ...

 

usando o componente CDO é possivel fazer toda a configuração necessária pra se mandar um email autenticado definindo o endereço de SMTP ,senha pra autenticação, nome de usuário ,etc etc ...

 

Vou colocar um exemplo simples com todas as propriedades muuuuito úteis desde objeto que me salvou !!!

 

Set CDO = Server.CreateObject("CDO.Message")caminho = "http://schemas.microsoft.com/cdo/configuration/"CDO.From = "kauebranco@hotmail.com"CDO.to = "kauebranco@hotmail.com"CDO.subject = "nome"CDO.TextBody = "CDO TESTE"CDO.Configuration.fields.Item(caminho & "smtpauthenticate") = 1CDO.Configuration.fields.Item(caminho & "smtpserverport") = 25CDO.Configuration.fields.Item(caminho & "sendusing") = 2 '1 seria para usar SMTP da própria maquinaCDO.Configuration.fields.Item(caminho & "smtpusessl") = False 'se vai usar a SSL(sobre segurança)CDO.Configuration.fields.Item(caminho & "smtpserver") = "endereço SMTP smtp.smtp.com.br"CDO.Configuration.fields.Item(caminho & "sendemailaddress") = "EmailUsadoAoSeConectarAoSMTP"CDO.Configuration.fields.Item(caminho & "sendusername") = "usuárioPraAutenticação"CDO.Configuration.fields.Item(caminho & "sendpassword") = "senha"CDO.Configuration.fields.UpdateCDO.SendSet CDO = Nothing

Bom proveito pessoal !!!

[Mário Monteiro 179]

Movido de ASP para Laboratorio de Scripts (ASP)