& " .save 下書きへ保存 や .sendで送信(確認が出る)" & vbCrLf _ & " 今回は、.Display で メール作成画面を表示" & vbCrLf _ & Now() & "作成" objMAIL.Body = strMOJI '本文の代入 objMAIL.Attachments.Add "d:\hinodrd.xml" '添付ファイル objMAIL.BCC = "ユリア@ginga.com;横島...
WithCreateObject("Outlook.Application").CreateItem(0).To="hogepiyo@fugafuga.com".Subject="ウニョラー".Body="トッピロキー".Attachments.Add"C:\aotogarashi.png".SendEndWith の7行で置き換えが可能だからです。 よい子は決してマネをしないでください。 目標と手順 今回やりたいことは タ...
この関数は、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, ...