vbaでメールを送信したいのですが、
アウトルックに二つのアカウントを登録しています。
その時
Sub メール作成()
Dim OlApp As Outlook.Application
Dim mItem As Outlook.MailItem
Set OlApp = New Outlook.Application
Set mItem = OlApp.CreateItem(olMailItem)
With mItem
.To = "test2@docomo.ne.jp"
.Subject = "メモ"
.Display
End With
End Sub
は、問題なくできるのですが、
差出人(送信者)の部分をどうすればいいかわからないです。
差出人(送信者)の部分とは、画像の部分です。
.Sender = "test@.co.jp"
にすると
"test@.co.jp"が、コンパイルエラー 型が一致しません。になります。
ヘルプを見ると、
MailItem の送信元のアカウントのユーザーに対応する AddressEntry オブジェクトを取得または設定します。
と書いてあります。
何を言ってるかよくわかりませんが、差出人(送信者)の指定ではないようです。
なので、
.SenderEmailAddress = "test@.co.jp"
にしてみましたが、
値の取得のみ可能とのことなので、エラーになりました。
どうやって差出人の指定をすればいいのでしょうか?
バージョンは2010です。
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
Outlook 2007の情報ですが、
http://msdn.microsoft.com/en-us/library/office/b …
というMSDNのページに参考になることが書いてあります。
説明は英語なのでいまいち読めていないのですが、
VBAのコードは見ればすぐわかると思います。
わかる範囲で上記ページのコードの要点を説明すると、
1.Outlook.Application.Session.Accountsのアイテムは個々のアカウントである。
2.AccountTypeがolPop3のものを選ぶ
3.メッセージのオブジェクトのSendUsingAccountにAccountオブジェクトの値を代入
(Setしておらず通常の代入なのでおそらく文字列)
だと思います。(間違っていたら申し訳ありません)
なお、上記ページの例ではAccountTypeで判別していますが、POP3のアカウントが複数あるような場合はDisplayNameプロパティやAccountオブジェクトの値を使えばいいと思います。
以上、時間的余裕がなく動作確認サンプル作成等を行っておりませんがまずはこれでご検討いただければ、と思います。
参考URL:http://msdn.microsoft.com/en-us/library/office/b …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) Excel・ユーザーフォームの情報を受け渡したい 4 2022/06/08 10:11
- Visual Basic(VBA) VBAにてメール作成した際、一部指定箇所のみ赤文字にしたいです。 下記の内容ですと作成されたメール本 1 2022/04/27 13:31
- その他(Microsoft Office) VBA メール送信済で実行されるはずが、実行されない時があります。 2 2023/02/02 14:05
- Visual Basic(VBA) outlook マクロが終了しません。 1 2022/09/02 11:14
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) VBA初心者です。 2 2022/10/10 11:52
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
このQ&Aを見た人はこんなQ&Aも見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
エクセルVBAでアウトルックメールの差出人変更
Excel(エクセル)
-
VBAのフォント変更(エクセルからoutlookのメール作成において)
Visual Basic(VBA)
-
OUTLOOKのメールアカウントの受信フォルダーへVBAでアクセスするには。
Visual Basic(VBA)
-
-
4
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
5
エクセルVBAでOutlookメールの書式を変える
Excel(エクセル)
-
6
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
バックグラウンドのプロセスのエクセルを閉じる方法
Visual Basic(VBA)
-
9
Excel VBA メール作成について Excelで作った表を写真のハイパーリンクの後に 図形にして
Visual Basic(VBA)
-
10
ACCESSで自動でメールをおくる時に任意のアドレスに送りたい
Access(アクセス)
-
11
エクセルからアクセスにインポートする際のエラーについて
Access(アクセス)
-
12
エクセルでエラーが出て困っています。
Excel(エクセル)
-
13
アクセスVBAのMe!と[ ]
Access(アクセス)
-
14
Excel VBA:フォーム←→セルのアクティブ切り替え
Excel(エクセル)
-
15
Excel マクロ VBA プロシージャが大きすぎます のエラー対処方法
Visual Basic(VBA)
-
16
【Excel VBA】マクロでExcel自体を終了させたい
Excel(エクセル)
-
17
IF関数で、時間を条件にしたい場合の式について
Access(アクセス)
-
18
VBAにてメッセージボックスを最前面に表示させる
その他(プログラミング・Web制作)
-
19
個別に違う添付ファイルを付けて一括でメール配信をしたいのですが、EXC
Visual Basic(VBA)
-
20
[VBA]標準機能のみでパス付zipファイルの解凍
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
至急!尿検査前日にオナニーし...
-
検便についてです。 便は取れた...
-
白血球が多いとどんな心配があ...
-
口の中に黒い血の塊
-
尿検査の前日は自慰控えたほう...
-
彼女のことが好きすぎて彼女の...
-
尿検査前日に自慰行為した時の...
-
Excelで""で囲む方法
-
勃起する時って痛いんですか? ...
-
2つの数値のうち、数値が小さい...
-
EXCELで条件付き書式で空白セル...
-
腕を見たら黄色くなってる部分...
-
MIN関数で空白セルを無視したい...
-
リンク先のファイルを開かなく...
-
中出しをするとお腹が痛い・・・。
-
精子が黄色?
-
エクセルのラベルの値(文字列...
-
エクセル指定した範囲からラン...
-
EXCELで式からグラフを描くには?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
至急!尿検査前日にオナニーし...
-
首吊りどこ締めるの
-
尿検査の前日は自慰控えたほう...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
白血球が多いとどんな心配があ...
-
中出しをするとお腹が痛い・・・。
-
射精をして1週間以内に尿検査を...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
変な話しになります。尿検査で...
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
男です。昨日の午後3時くらいに...
-
今朝、毎朝の習慣でオナニーし...
-
納豆食べた後の尿の納豆臭は何故?
-
1日前の検尿
-
値が入っているときだけ計算結...
-
精子が黄色?
おすすめ情報