どなたか教えてください。宜しくお願い致します。
使っているのはExcel2003です。
Excelで、更新作業完了時に、メールを自動送信したいと思っています。
色々調べてみてみて、
http://homepage1.nifty.com/gak/MSTips/sendmail.h …
にある「WorkbooksオブジェクトのSendMailメソッド」を使ったのですが、これだと、設定したあて先にExcelのワークブックが送られてしまい、ちょっと違うなぁと思いまして…。
http://www.hi-ho.ne.jp/babaq/vbtips.html
も参考にしてみたんですが、いまいちよくわからず、こちらに質問してみた次第です。
<やりたいこと>
更新したら「更新ボタン」を押す
↓
次作業者をTOに、何人かをCCに入れて、件名「作業が終わりました」本文「次の作業をお願いします」と言ったような決まった文言が入れたメールを送りたい。
です。
ToとCcのあて先は毎回一緒です。
どなたか教えてください。
宜しくお願い致します。
No.5ベストアンサー
- 回答日時:
>「,」で区切ればいいんでしょうか?
いいえ、";"で区切ります。
過去のメール送信で、宛名の部分やccの部分をコピィしても大丈夫だったと思います。
ほか複数のセルにメールアドレス入れておいて
myDATA.CC = Range("F3").Value+";"+Range("F4").Value+";"・・・
とつないでも大丈夫でしょう。
未確認ですが。
No.4
- 回答日時:
ん~ おかしいですね。
>認識できない・・・とエラーが出て、デバックすると
>「myDATA.Send」のところが黄色くなっています。
こちらでも試しては見ましたが
MS OUTLOOKの・・・自動的に電子メールを・・・
のメッセージは出ましたか?
エラーメッセージが 「OUTLOOKが認識できない名前があります。」とかでしょうか?
であれば、B3、F3にメールアドレスには使えない文字(全角など)が含まれていませんか?
メールにはMS OUTLOOKを使用されていますよね?
OUTLOOK EXPLESS ではダメだと思います。
ちなみに他方法でメール送信するには
[メール送信(BASP21利用)]
http://www.asahi-net.or.jp/~ef2o-nue/download/su …
[メール送信(CDO利用)]
http://www.asahi-net.or.jp/~ef2o-nue/download/su …
の方法があります。
この回答への補足
何度もご丁寧にすいません。
会社でもう一度試してみます。
ちなみに、CCの部分に複数アドレスを入力したい場合は
「,」で区切ればいいんでしょうか?
No.3
- 回答日時:
No1,No2です。
もう一件添付ファイルが不要なので
・・・
myDATA.Subject = Range("C3").Value
myDATA.Body = Range("D3").Value
'myDATA.Attachments.Add Range("G3").Value
myDATA.Send
・・・
と
'myDATA.Attachments.Add の行は不要です。
この回答への補足
お世話様です。
チェックを入れたつもりが間違ったものにチェックをしてました。
改めてチェックしなおして、やってみましたが・・・。
認識できない・・・とエラーが出て、デバックすると
「myDATA.Send」のところが黄色くなっています。
No.2
- 回答日時:
No1です。
準備
VBエディターのツール 参照設定で
Microsoft Outlook 10.0 Object Library にチェックをいれます。
は設定していただいたでしょうか。
Outlookのツールを使用しますので。
No.1
- 回答日時:
この回答への補足
Sub ボタン1_Click()
Dim myOLApp As Object
Dim myDATA As MailItem
Set myOLApp = CreateObject("Outlook.Application")
Set myDATA = myOLApp.CreateItem(olMailItem)
myDATA.To = Range("B3").Value
myDATA.CC = Range("F3").Value
myDATA.Subject = Range("C3").Value
myDATA.Body = Range("D3").Value
myDATA.Attachments.Add Range("G3").Value
myDATA.Send
Set myDATA = Nothing
Set myOLApp = Nothing
End Sub
を入れて実行したところ、「コンパイルエラー ユーザー定義型が定義されていません」と出てしまいました。
どうしたらいいでしょうか???
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAにてメール作成した際、一部指定箇所のみ赤文字にしたいです。 下記の内容ですと作成されたメール本 1 2022/04/27 13:31
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- その他(Microsoft Office) outlookで宛先が異なるメールを一括送信する方法 outlookで200人それぞれをtoに指定し 2 2023/08/03 21:24
- docomo(ドコモ) 携帯 arrows we の操作 4 2023/03/29 18:53
- その他(Microsoft Office) OneDrive Personalについて 1 2022/08/02 18:25
- その他(クラウドサービス・オンラインストレージ) Onedriveで実現したい事。2台のPC間で。 2 2023/04/10 20:42
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) エクセルのマクロとシートの保護について教えてください。 1 2022/10/18 08:36
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
受信メールの添付ファイル忘れ...
-
お祝い金を徴収するメールの書き方
-
一度聞いたかも知れないのをっ...
-
送信エラーの際、CCには届い...
-
URLをコピーしてメールにリ...
-
失礼な文とは分からず、先生に...
-
通帳口座番号 メールで送っても...
-
"***@***.ocn.ne.jp"の"@***"は...
-
Beckyでのメーリングリスト
-
Winmail.dat ファイルが開けない
-
株式会社NSCと言う所から、現金...
-
メール送信すると以下のような...
-
iphoneからメールで写真を送付...
-
送信しても『Mail System Error...
-
windowsメールとOutlookメール...
-
一つのメールアドレスで色んな...
-
メールの一斉送信で非対象者に...
-
エクセルを更新したらメールが...
-
空メールって何も書かなくてい...
-
メールの書き方 保護者から先生へ
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
受信メールの添付ファイル忘れ...
-
お祝い金を徴収するメールの書き方
-
失礼な文とは分からず、先生に...
-
windowsメールとOutlookメール...
-
送信エラーの際、CCには届い...
-
URLをコピーしてメールにリ...
-
Winmail.dat ファイルが開けない
-
"***@***.ocn.ne.jp"の"@***"は...
-
メール送信すると以下のような...
-
株式会社NSCと言う所から、現金...
-
一度聞いたかも知れないのをっ...
-
通帳口座番号 メールで送っても...
-
iphoneからメールで写真を送付...
-
訳せる方お願いします!!
-
送信しても『Mail System Error...
-
メールの書き方 保護者から先生へ
-
OUTLOOK2016(「メッセージが変...
-
相手にメールを送信したら、 Ea...
-
既婚者の異性とメールするのは...
-
詐欺メールでしょうか?
おすすめ情報