エクセル2010です。
エクセルからVBAでアウトルックメールを作成するのですが、差出人を自分ではなく部門名のアドレスにしたいのです。
手動ではなんなく差出人を変更できるのですが、VBAでの方法がわかりません。
ネット検索してみると、
SendUsingAccount = Session.Accounts("アカウント名")
でできるようなのですが、アカウント名がよくわかりません。
アカウント名に、手動で差出人を変更する際に「名前の選択」で指定する部門の名前や部門のアドレスなどを入れてみましたがオブジェクトが必要とのエラーになってしまいます。
どうすればよいのでしょうか?
Sub TEST001()
Dim oApp As Object
Dim objMAIL As Object
Dim strMOJI(1) As String
On Error Resume Next
Set oApp = GetObject(, "Outlook.Application")
On Error GoTo 0
If oApp Is Nothing Then
Set oApp = CreateObject("Outlook.Application")
End If
Set objMAIL = oApp.CreateItem(0)
strMOJI(0) = "こんにちは!" & vbCrLf & _
"差出人変更のテストです。。" & vbCrLf & _
"よろしくおねがいします。" & vbCrLf
strMOJI(1) = vbCrLf & _
"以上です。" & vbCrLf & _
"ABC株式会社" & vbCrLf & _
"emaxemax"
objMAIL.To = ""
objMAIL.CC = "xxxx@xxx.co.jp"
objMAIL.Subject = "テスト"
objMAIL.Body = strMOJI(0) & strMOJI(1)
' objMAIL.SendUsingAccount = Session.Accounts("ABC Gyomubu")'ここでエラー
objMAIL.Display
End Sub
No.1ベストアンサー
- 回答日時:
Outlookは2010ですよね。
まず始めにおことわりいたしますが、当方の環境がOffice2007でり、また質問者様の状況をきちんと把握できていないと思われ、さらに何より当方のOutlookの知識はかなり貧弱です。そのため、解決する可能性がある方法を書かせてはいただきますが、不適切な回答かもしれません。
最初に考えられるのは、MailItemのSenderプロパティに差出人の情報を設定することで達成できると思います。
で、何を設定するかですが、下記のリンクを見るとAddressEntryオブジェクトであるとのこと。
http://msdn.microsoft.com/ja-jp/library/office/m …
じゃあAddressEntryはどこにあるかというと、Session→AddresLists→AddressList→AddressEntries→AddressEntryのようです。
http://msdn.microsoft.com/en-us/library/office/a …
http://msdn.microsoft.com/en-us/library/office/a …
Sessionオブジェクトにアクセスできる場所はいくつかありますが、とりあえず上記リンク先の例に従いOutlook.Application.Sessionを使ってみます。
(MailItemオブジェクトの直下にもSessionがあるので、もしかしたらこちらの方がいいかもしれません)
ということで前置きが長くなりましたが、たとえば差出人にしたいアドレスがOutlookの連絡先の「ABC Gyomubu」にあるとして、以下のようにしてみてはいかがでしょうか。
objMAIL.Sender = oApp.Session.AddressLists("連絡先").AddressEntries("ABC Gyomubu")
ただし、SenderプロパティはOutlook2010で新設されたものとのことです。
http://msdn.microsoft.com/ja-jp/library/office/e …
そのため、当方の環境では検証できません。
もう1つ可能性のある方法としては、MailItemオブジェクトのSentOnBehalfOfNameプロパティに文字列で差出人を設定する、というのがあるようです。
objMAIL.SentOnBehalfOfName = "ABC Gyomubu"
としてみてはいかがでしょう。(表示名よりメールアドレスそのものの方が確実かもしれません)
当方の環境では、Outlook2007で差出人欄に入るところまでは確認できたのですが、システムの都合でこの状態では送信できないため検証できていません。
以前、似たような質問に回答したのですが、どうやらその時は的外れな回答をしてしまったようです。
http://oshiete.goo.ne.jp/qa/8095478.html
というのは、質問内容はSenderプロパティに関するものだったのですが、SendUsingAccountについて答えてしまったからです。
もしもメール送受信のためのアカウントを複数設定していてそれを選択するということなら、そこに回答したようにSendUsingAccountを使えばいいと思います。
でもおそらくそういう問題ではないですよね。もしもこれをご覧になっていたなら、的外れな情報で申し訳ありません。
うまくいかない場合や不明な点がある場合など、何かありましたら補足いただければ再検討いたします。
SentOnBehalfOfNameプロパティ!
代理送信ですね。
こんなのがあったんですね、ありがとうございます。
ここに直接文字列でアドレスを指定したところ完璧に送信可能なメールができました。
ありがとうございます!!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
高校生はアルバイトするべきだろうか?賛成だったら「賛」、否定だったら「否」を文頭においてあなたの意見を教えてください。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
アウトルックvba 差出人を指定したい
PowerPoint(パワーポイント)
-
VBAのフォント変更(エクセルからoutlookのメール作成において)
Visual Basic(VBA)
-
エクセルVBAでOutlookメールの書式を変える
Excel(エクセル)
-
-
4
Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを
Visual Basic(VBA)
-
5
VBAにてメッセージボックスを最前面に表示させる
その他(プログラミング・Web制作)
-
6
Accessのテーブルデータを一気にVBAで追加したい・・
その他(データベース)
-
7
アウトルックが起動しているかどうかを取得するには?
Visual Basic(VBA)
-
8
エクセルで作った新しいウインドウを削除するには・・・
Excel(エクセル)
-
9
ACCESS VBAでインポート定義の場所
Access(アクセス)
-
10
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
11
複数アドレスにメール送信した場合に、一つでも宛先アドレスが間違っていた
Yahoo!メール
-
12
個別に違う添付ファイルを付けて一括でメール配信をしたいのですが、EXC
Visual Basic(VBA)
-
13
メッセージボックスを前面に表示させるには?
Visual Basic(VBA)
-
14
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
15
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
16
VBAでOutlookを終了させたい ExcelVBAで既に起動されているOutlookを終了させる
Visual Basic(VBA)
-
17
VBAにてメール作成した際、一部指定箇所のみ赤文字にしたいです。 下記の内容ですと作成されたメール本
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Outlookで差出人の表示が消えま...
-
Outlook2010 仕分けルールにつ...
-
差出人]を[宛先]に変更する...
-
OUTLOOKで差出人、件名が2行で...
-
受信したメールの差出人の名前...
-
メッセージアプリに差出人不明 ...
-
友達に手紙を書くので、100均で...
-
ヤフーメールの送受信を、OUTLO...
-
筆王 差出人氏名を入れないよ...
-
また、宅配便で箱が開けられた...
-
".ru"で終わる迷惑メール
-
郵便の内容証明はお客様控えみ...
-
差出人不明のSMSはどうしたら良...
-
筆ぐるめfor windows封筒裏印刷...
-
お店で領収書を発行してもらっ...
-
二刀流宛名印刷のファイルの保存
-
カタカナの宛名で郵送できる?
-
Word2019の差し込み印刷でエク...
-
封筒の宛名にタックシールは失...
-
筆ぐるめで郵便番号の枠や宛名...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Outlookで差出人の表示が消えま...
-
差出人]を[宛先]に変更する...
-
友達に手紙を書くので、100均で...
-
Outlook2010 仕分けルールにつ...
-
OUTLOOKで差出人、件名が2行で...
-
メッセージアプリに差出人不明 ...
-
ときどき、空メールが届くのは?
-
また、宅配便で箱が開けられた...
-
差出人不明のSMSはどうしたら良...
-
Outlook2016で差出人中の任意の...
-
送信者と差出人の違い
-
エクセルVBAでアウトルックメー...
-
知らない人から荷物などが届い...
-
ヤマト宅急便の伝票の書き方。
-
差出人が表示されないメールっ...
-
ポルトガル語での~様(郵便宛...
-
受信したメールの差出人の名前...
-
".ru"で終わる迷惑メール
-
JavaMailでメールアドレスに人...
-
筆王で法人名で住所登録したい...
おすすめ情報