Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


3937 / 13644 ツリー ←次へ | 前へ→

【59370】VBAで自動メール送信について質問 あろ 08/12/8(月) 20:33 質問[未読]
【59371】Re:VBAで自動メール送信について質問 かみちゃん 08/12/8(月) 20:40 発言[未読]
【59375】Re:VBAで自動メール送信について質問 あろ 08/12/8(月) 22:32 お礼[未読]

【59370】VBAで自動メール送信について質問
質問  あろ  - 08/12/8(月) 20:33 -

引用なし
パスワード
   エクセルでセルA1の値が変わる度にA1の値を指定したメールアドレスへ
自動的にメールを送信したいのですが、VBAの知識が乏しいので
サンプルコードがありましたらご教授お願いいたしまます

【59371】Re:VBAで自動メール送信について質問
発言  かみちゃん E-MAIL  - 08/12/8(月) 20:40 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>エクセルでセルA1の値が変わる度にA1の値を指定したメールアドレスへ
>自動的にメールを送信したい

以下のようなコードをシートモジュールに記述して、どのような動きになるか
確認してみてください。

Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
 If Target.Count > 1 Then Exit Sub
 If IsEmpty(Target.Value) Then Exit Sub
 MsgBox "送信先は " & Target.Value
End Sub

なお、送信方法は、BASPのBSMTP.DLLを使用するか、
CDO(Microsoft Collaboration Data Objects)を使う方法があります。
以下が参考URLです。

BSMTP.DLLを使う方法
http://homepage1.nifty.com/gak/MSTips/multimail.htm
http://www.asahi-net.or.jp/~ef2o-inue/download/sub09_020_050.html

CDOを使う方法
http://www.asahi-net.or.jp/~ef2o-inue/download/sub09_020_055.html

【59375】Re:VBAで自動メール送信について質問
お礼  あろ  - 08/12/8(月) 22:32 -

引用なし
パスワード
   ▼かみちゃん さん:
あろです。かみちゃんさんありがとうございます
無事にできました。動作したときは感動モノでした
ありがとうございます

3937 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free