Excel VBA質問箱 IV

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

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


22738 / 76732 ←次へ | 前へ→

【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
1 hits

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

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