![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
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ランキング
-
「.movpkg」「.m3u8」ファイル...
-
YahooのIDがロックされてしまい...
-
jpeg画像の圧縮
-
ITの見積もりってなんであんな...
-
Winrarの移行
-
今から3DCGを学ぶとすれば、ど...
-
スプレッドシートの作業範囲
-
STEAM版BF4が起動しない
-
ふんわりラウンドと同じ感じの...
-
ゆうちょ認証アプリが使えません
-
gimpで文字の細工をしたい
-
ATOKをお使いの方、今後もVer U...
-
jtrim 1.53cが正常な動きをし...
-
GIMPで直線が書けない
-
ホームページにあるPDFファイル...
-
CGソフトを使うならどれが一番...
-
Kritaについて
-
FTP(Filezilla)で「上書きしま...
-
Numbersについてお伺いです。 ...
-
VideoProc PC画面録画を開始後...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Becky!の受信一覧の受信時の表...
-
Beckyの受信のお知らせメッセージ
-
IP Messengerについて
-
WeChat PC版に詳しい方
-
保存したPDFファイルが開けなく...
-
Becky!に代わるメーラーを探し...
-
サンダーバードでのメール受信...
-
Ez-MailChecker イージーメール...
-
Yahooのメールにも届くんですけ...
-
【至急】Groupmaxの過去メール...
-
Thunderbirdで受信したメールが...
-
Lotus Notes の受信確認メール...
-
thunderbirdのURLの色を変えたい
-
サンダーバード(Thunderbird)...
-
SmartVisionでの番組表受信の設...
-
メールの本文が添付ファイルに...
-
ノートパソコン2台所有してい...
-
Becky!に似たメールソフト
-
フィルターを設定する前に受信...
-
1Gbpsを用いて、1GBを送るとき...
おすすめ情報