Yahoo Mail CDO

[MatsuLingさん]

CDOメール　for　Yahoo
最終更新日 2010年2月2日
やまあり さんのその他のノートブック ≫

下記はVBSです

＜準備＞
下の文章をコピーして　メモ帳に貼り付けて　名前を付けて　デスクトップに保存してください
名前は　メール送信.vbs　のように拡張子を　.vbsにしてください　
保存場所や名前は自由です

＜実行＞
実行するときは　ファイルをダブルクリックするとスタートします

＜設定＞
メモ帳からひらくと修正できます　上書き保存
下記を指定してください
myMail = "ここにYahooのメールアドレス"
myID = "ここにYahooのID"
myPASS = "ここにYahooのPass"

＜結果＞
実行すると メールを送信します
終わると　ENDと表示されます
自分から自分あてに送ります

＜Yahooの準備＞
Yahooメールを使うには下記の２つの準備が必要です
　　「POPアクセスの許可」
　　「Yahooデリバーの利用」
　　http://guide.mail.yahoo.co.jp/1st/mailsoft/ymstep.html
設定してから実行してください



myMail = "ここにYahooのメールアドレス"
myID = "ここにYahooのID"
myPASS = "ここにYahooのPass"

With CreateObject("CDO.Message")
.From = myMail
.To = myMail
.Subject = "送信テスト"
.TextBody = "送信テストです　" & Now
myText = "http://schemas.microsoft.com/cdo/configuration/ "
With .Configuration.Fields
.Item(myText & "sendusing") = 2
.Item(myText & "smtpserver") = "smtp.mail.yahoo.co.jp "
.Item(myText & "smtpserverport") = "587"
.Item(myText & "smtpauthenticate") = 1
.Item(myText & "sendusername") = myID
.Item(myText & "sendpassword") = myPASS
.Update
End With
.Send
End With
Msgbox "END"

このページ上のコンテンツは Google ノートブックのユーザーによって提供されており、Google ではこのコンテンツに対し一切責任を負いません。