1 SubSendMail (Pmailfrom, Pmailto, Psubject, Pmailbody, Pmailsmtpserver)2 on Error Resume Next3 DimObjshell4 Dimomsg5 6 SetObjshell =CreateObject("Wscript.Shell")7 Setomsg =CreateObject("CDO. Message")8 9oMsg.From = Pmailfrom &"<"& Pmailfrom &">" 'The Messenger.TenoMsg.To = Pmailto &"<"& Pmailto &">" 'Recipient OneoMsg.Subject = Psubject'title AOmsg.htmlbody = Pmailbody'message body (HTML format) - 'omsg.textbody = Pmailbody ' message body (text format) - theOMsg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") =2 -OMsg.Configuration.Fields.Item ("Http://schemas.microsoft.com/cdo/configuration/smtpserver") = Pmailsmtpserver'Exchange Mail server name -OMsg.Configuration.Fields.Item ("Http://schemas.microsoft.com/cdo/configuration/smtpserverport") = - - oMsg.Configuration.Fields.Update + - Omsg.send + IfErr.Number <>0 Then AAddlog ("The Courier failed:"&Err.Description) atWscript.Quit-1 - End If - - Setomsg = Nothing - SetObjshell = Nothing - End Sub
"VBS" e-mail