Private Sub UserForm_Initialize() 'フォームの初期化イベントでリストボックスにメールデータをセットする Dim objOL As Object 'OutLookのアプリケーションオブジェクト Dim objNAMESPC As Object '名前空間 Dim objFLD As Object 'フォルダー保存用 Dim objMAIL As Object 'メールアイテム D...
Excel VBAからGmail APIでメール送信を行うことを推奨するものではありません。 なぜなら今回使用する250行を超えるコードはOutlookを使えば WithCreateObject("Outlook.Application").CreateItem(0).To="hogepiyo@fugafuga.com".Subject="ウニョラー".Body="トッピロキー".Attachments.Add"C:\aotog...
PDFを保存してメール送信する関数 この関数は、ActiveSheetをPDFとして保存し、(オプションで)PDFをメールに添付します(Outlookがインストールされていることが前提です)。 Sub Test_Save_PDF() Call Send_PDF("SendEmail") End Sub Function Send_PDF(Optional action As String = "SaveOnly") As ...