エクセルにて、毎日送信する定型メールを作成するマクロを作成しましたが、作成したメールに開封確認の要求を追加する設定がわかりません。エクセルのシートから要求の有無を指定させたいと考えています。もし、ご存じの方がいましたら、お知恵を拝借いただきたいです。
なお、エクセルでマクロを起動し、Outlook.Applicationのオブジェクトでメールを作成して、シートの内容を各設定に組み込むという形をとっています。OSはWindowsXP、Office2007のOutlookでメールを作成しています。
投稿は今回が初めてで不慣れな点がありますが、不備等をご指摘いただければ幸いです。宜しくお願い致します。
-----------------------以下マクロの内容------------------------
Option Explicit
Sub MAKE_MAIL_ITEM()
Dim Tool As Workbook
Dim Sheet As Worksheet
Dim myoApp As Object
Dim myoExp As Object
Dim myNameSpace As Object
Dim myFolder As Object
Dim objMAIL As Object
Dim SendDay As String
Set Tool = ThisWorkbook
Set Sheet = Tool.ActiveSheet
' Outlookアプリのオブジェクト設定
Set myoApp = CreateObject("Outlook.Application")
' Outlookの規定フォルダをオブジェクト設定
Set myNameSpace = myoApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(6)
' Outlookで表示されているフォルダのアクティブ設定
Set myoExp = myoApp.ActiveExplorer
' アクティブフォルダがなければOutlook起動(表示)
If myoExp Is Nothing Then
myFolder.display
End If
' メールアイテムの作成
Set objMAIL = myoApp.CreateItem(0)
' 日付の取り込み
SendDay = Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日"
' メールの表示
objMAIL.display
' 宛先設定
objMAIL.To = Sheet.Cells(2, 2)
' CC設定
objMAIL.CC = Sheet.Cells(3, 2)
' Subjectを設定([$#Today#$]があれば日付に変換)
objMAIL.Subject = Replace(Sheet.Cells(4, 2), "[$#Today#$]", SendDay)
' 本文の代入([$#Today#$]があれば日付に変換)
objMAIL.Body = Replace(Sheet.Cells(5, 2), "[$#Today#$]", SendDay)
End Sub
No.1ベストアンサー
- 回答日時:
OutLookのVBAのHelpで検索したら
ReadReceiptRequested プロパティ
関連項目 対象 使用例 アプリケーション情報
True を設定すると、開封確認のメッセージが要求されます。このプロパティは、MAPI プロパティの PR_READ_RECEIPT_REQUESTED に対応しています。値の取得および設定が可能です。
expression.ReadReceiptRequested
expression 必ず指定します。MailItem オブジェクトを表すオブジェクト式を指定します。
のがありました。
objMAIL.ReadReceiptRequested=True
とかで試してみては如何でしょうか。
ご回答ありがとうございます。
どこかにあるだろうと思っていましたが、
いくら探してもなかったので助かりました。
これで開封確認設定の使い分けができるようになりました。
どうもありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
準・究極の選択
「年収1000万円で一生カレーライス」か 「年収180万円で毎日何でも食べ放題」 あなたはどちらを選びますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
特定の人に開封確認を設定したい
Yahoo!メール
-
VBAのフォント変更(エクセルからoutlookのメール作成において)
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
オブジェクトが見つかりません
-
「Columns("A:C")」の列文字を...
-
VBA msoShapeBlockArcで扇形の...
-
上下の位置揃えについて
-
Excelでフィルタをかけると警告...
-
[VBA]CDOメッセージ送信エラー
-
Visual Basic につて。
-
エクセルのVBAの標準モジュール...
-
VBScriptからDLL参照設定したい
-
VBAからPDFファイルにパスワー...
-
実行時エラー 3265「要求された...
-
PowerPointVBAでスライドマスタ...
-
ACCESSのFieldの追加方法
-
ExcelのVBAについて(グラフ操作)
-
エクセルから表をパワーポイン...
-
Word、VBAでの取り消し線文字の...
-
VBA (Row とRowsの違いについて)
-
WordにOLEで埋め込んだExcelでW...
-
エクセルマクロエラー「'Cells'...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
実行時エラー 3265「要求された...
-
VBAで既に開いている別アプリケ...
-
Excelでフィルタをかけると警告...
-
オブジェクトが見つかりません
-
EXCEL VBA オートシェイプナン...
-
VBAからPDFファイルにパスワー...
-
エクセルマクロエラー「'Cells'...
-
ある文字列が全て数字であるか...
-
VBAで Set wb = Sheets(1).Cop...
-
AccessVBAで「dim dbs as datab...
-
上下の位置揃えについて
-
Excel VBA Collection.add で R...
-
UserForm1.Showでエラーになり...
-
VBScriptでファイルの日時順(降...
-
テキストボックス中の文字列の...
-
ExcelVBAでのNZ関数について
-
PowerPointVBAでスライドマスタ...
おすすめ情報