Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xanburzum

[Resolvido] CDO (CDOSYS) ou CDO (CDOEX) usando em vbs

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

Esse artigo mostra como enviar mensagens formatadas com HTML usando CDO (CDOSYS) ou CDO (CDOEX) usando o serviço SMTP de um computador remoto. Salve o arquivo com extenção vbs.

 

Cdosmtp.vbs:

 

' conectar à porta 25 do servidor SMTP.
Dim iMsg 
Dim iConf 
Dim Flds 
Dim strHTML

Const cdoSendUsingPort = 2

set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

' Defina a configuração CDOSYS para usar a porta 25 no servidor SMTP.

With Flds
	.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
	'ToDo: indicar o nome ou o endereço IP do servidor SMTP remoto
	.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "<remote SMTP server>" 
	.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10  
	.Update
End With

' Mensagem HTML para construir o body.
strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<b> Este é o teste mensagem HTML body</b></br>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"

' Aplicar as configurações para a mensagem 
With iMsg
	Set .Configuration = iConf
	.To = "<email address>" 'ToDo: Digite um endereço de email válido.
	.From = "<email address>" 'ToDo: Digite um endereço de email válido.
	.Subject = "Este é um teste CDOSYS enviado via Porta 25 "
	.HTMLBody = strHTML
	.Send
End With

' limpar variáveis
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

MsgBox "email enviado com sucesso!"

O código cria uma mensagem formatada com HTML e a envia usando o serviço SMTP do computador remoto.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito