我的blog地址:http://blog.sina.com.cn/defiler523 ,有事情 email我也可以:defiler_523@hotmail.com 。 '送信 Sub MAKE_MAIL_ITEM() Dim oApp As Object Dim myNameSpace As Object Dim myFolder As Object Dim objMAIL As Object 'メールのオブジェクト Dim strMOJI As String '本文 'outlook 起動 ...
attached2 = Range("AT22").Value '添付ファイル2 myattachments2.Add (attached2) 'コード6|メールを送信する mailItemObj.Display 'メール表示(ここでは誤送信を防ぐために表示だけにして、メール送信はしない) 'コード7|outlookを閉じる(オブジェクトの解放) ...
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 ...