No.1ベストアンサー
- 回答日時:
>受信メールから.msgファイルを作る.exeの作り方を教えて下さい。
それは知らんけど、マクロ使えば
個別にファイルに保存できます。
以下コードはずっと前書いたもんだけど、
まぁ参考に。
Sub test2()
Dim ns As NameSpace
Dim myFolder As MAPIFolder
Dim myitem As MailItem
'ネームスペース取得
Set ns = GetNamespace("MAPI")
'受信フォルダを取得
Set myFolder = ns.GetDefaultFolder(olFolderInbox)
'受信フォルダのアイテムをひとつずつチェック
For Each myitem In myFolder.Items
'アイテムが未読の時、保存
If myitem.UnRead Then
myitem.SaveAs "C:\" & Format(Date, "yyyymmdd") & ".msg", olMSG
End If
Next
'フォルダ、ネームスペース開放
Set myFolder = Nothing
Set ns = Nothing
End Sub
ご回答、ありがとうございました。
早速、やってみましたが、ファイル名が重なってしまい最後の1件しか残りませんでした。
そこで更にお聞きしたいのですが、件名をファイル名にすることは出来ないでしょうか?
No.3
- 回答日時:
えーと、えーと、書き方悪かったか。
Format関数と差し替えってこと。
myitem.SaveAs "C:\" & myitem.Subject & ".msg", olMSG
ThisOutlookSessionは、VBE(VisualBasicEditor)の
画面の左中央のプロジェクトエクスプローラで
MicrosoftOutlookObjectsの中。
ダブルクリックすると、コードウィンドウが開くので
その上部のコンボボックスふたつで
ApplicationとNewMailを選ぶと
Private Sub Application_NewMail()
End Sub
って出るんで、中にコードをコピー。
ちなみに私が例示したコードの
Sub test2()
End Sub
って部分はいらないからね。中身を中身にcopyですから。
No.2
- 回答日時:
>件名をファイル名にすることは出来ないでしょうか?
myitem.SaveAs "C:\" & Format(Date, "yyyymmdd") & ".msg", olMSG
ここんとこで、保存してるのはお分かりと思うんですが
上に挙げた例は、日付を加工してファイル名にしてます。
でメールの件名は、MailItemのsubjectプロパティで取得できますんで
ここでは、Format関数のところをmyitem.subjectとかにすれば
できるかと。
あと、ご存知かも知りませんが、
コードを書く場所は、ThisOutlookSession の
Application_NewMailイベントに書けば、
新着メール到着時にマクロが動きます。
再度のご回答、ありがとうございました。
myitem.SaveAs "C:\" & Format(myitem.Subject) & ".msg", olMSG
とマクロを直してやってみたところ、半歩、前進しました。
英数字だけの件名だとOKですが、全角文字が入っているとエラーになってしまいます。
あと「ThisOutlookSession のApplication_NewMailイベント」というのは
Outlookのどこのことでしょうか?
教えて下さい。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Outlook(アウトルック) 未読ならば受信トレイから削除する 2 2023/02/12 19:21
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) Outlook VBAについて 1 2023/07/10 12:41
- 労働相談 合意済み仕様の商品納入後における仕様変更要求への対応について 5 2023/04/19 09:41
- Outlook(アウトルック) outlookメールで自動振分けをしています。 受信トレイの小フォルダに振分けしていますが、親である 5 2022/06/03 18:23
- Outlook(アウトルック) Outlookメールを立ち上げた(開いた)ときに常に『受信メール』一覧が表示される、という設定の方法 1 2023/04/30 17:37
- その他(Microsoft Office) *Office 2021への乗り換えについて 2 2022/09/02 18:06
- その他(メールソフト・メールサービス) CosmoSiaのメールアプリで、メールをフォルダに自動振り分けするには 1 2022/03/29 12:21
- その他(プログラミング・Web制作) Windowsのメモ帳でジョークウイルスが作りたいです。 3 2022/06/04 12:17
- その他(プログラミング・Web制作) Windowsのメモ帳でジョークウイルスが作りたいです。 1 2022/06/04 11:30
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Becky!の受信一覧の受信時の表...
-
Beckyの受信のお知らせメッセージ
-
AVG ver7にアップデートしたらO...
-
IP Messengerについて
-
Thunderbirdで受信したメールが...
-
Outlookでのメールの自動ファイ...
-
サンダーバード(Thunderbird)...
-
Ez-MailChecker イージーメール...
-
WeChat PC版に詳しい方
-
biglobe:受信済みの同じメール...
-
@niftyのサーバーダウン...
-
Gメールが重過ぎる
-
サンダーバードでのメール受信...
-
リアルタイムで受信できませんか?
-
thunderbirdのURLの色を変えたい
-
保存したPDFファイルが開けなく...
-
サンダーバードメールにて数万...
-
thunderbirdのIMAPクオータの%...
-
メルカリを装った迷惑メールが...
-
thunderbirdの受信メール削除に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Becky!の受信一覧の受信時の表...
-
WeChat PC版に詳しい方
-
IP Messengerについて
-
Beckyの受信のお知らせメッセージ
-
保存したPDFファイルが開けなく...
-
Lotus Notes の受信確認メール...
-
サンダーバードでのメール受信...
-
Ez-MailChecker イージーメール...
-
Becky!に代わるメーラーを探し...
-
Thunderbirdで受信したメールが...
-
thunderbirdのURLの色を変えたい
-
【至急】Groupmaxの過去メール...
-
メールの本文が添付ファイルに...
-
メール受信できません(アンド...
-
SmartVisionでの番組表受信の設...
-
biglobe:受信済みの同じメール...
-
フリーのメールソフトで良い物...
-
iPhoneのメールについてです! ...
-
1Gbpsを用いて、1GBを送るとき...
-
lookmailについて
おすすめ情報