CDO メール送信

  X-Mailer: Microsoft CDO for Windows 2000



  
Set objEmail = CreateObject("CDO.Message")

objEmail.From	= "メールアドレス"
objEmail.To	= "メールアドレス"
objEmail.Subject	= "CDOのテスト"
objEmail.Textbody	= "本文" & vbCrLf & "です"
' objEmail.Htmlbody	= "<H1>本文です</H1>"
objEmail.AddAttachment("添付ファイルへのフルパス")

objEmail.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SMTPサーバー"
objEmail.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update

objEmail.Send
  

http://www.microsoft.com/technet/scriptcenter/guide/sas_ent_wbpa.mspx
http://www.microsoft.com/japan/technet/community/columns/insider/iisi0505.mspx
http://msdn.microsoft.com/en-us/library/ms526453.aspx










  infoboard   管理者用   





フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ