3 de novembro de 2004

VBScript para envio de correio electrónico

Um script para envio de e-mail dá sempre jeito. São várias as ocasiões em que eu já precisei de o utilizar, mas normalmente tenho sempre de perder algum tempo até encontrar no Google a informação necessária.
Na edição de Novembro da Redmond Magazine (ex-MCP Magazine), Greg Shields assina o artigo "5 Essential Scripts", entre os quais o de envio de e-mail que aqui se transcreve:

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "ehlo@blogspot.com"
objEmail.To = "jdoe@blogspot.com"
objEmail.Subject = "Script complete! "
objEmail.Textbody = "The script is complete. "
objEmail.Send


Sem comentários: