& " .save 下書きへ保存 や .sendで送信(確認が出る)" & vbCrLf _ & " 今回は、.Display で メール作成画面を表示" & vbCrLf _ & Now() & "作成" objMAIL.Body = strMOJI '本文の代入 objMAIL.Attachments.Add "d:\hinodrd.xml" '添付ファイル objMAIL.BCC = "ユリア@ginga.com;横島...
この関数は、ActiveSheetをPDFとして保存し、(オプションで)PDFをメールに添付します(Outlookがインストールされていることが前提です)。 Sub Test_Save_PDF() Call Send_PDF("SendEmail") End Sub Function Send_PDF(Optional action As String = "SaveOnly") As Boolean Dim Thissheet As String, ...
【Outlook VBA】受信フォルダにあるメールの添付ファイルを指定フォルダに取り出す方法 Outlookの受信メール内にあるメールに添付されたファイルを、任意フォルダにまとめて保存する方法をご紹介しています。メールの自動振り分けルールで予め添付ファイルを取り出したいメールをサブフォルダ...