彰化一整天的論壇

 找回密碼
 立即註冊
查看: 873|回復: 0

excel 透過outlook寄送email範例

[複製鏈接]
發表於 2014-2-20 10:29:13 | 顯示全部樓層 |閱讀模式
  1. Sub SendEmail()

  2. Dim FileNameZip, FileNameXls
  3. Dim oApp As Object, OutApp As Object, OutMail As Object
  4. FileNameXls = Detail_Filename

  5.         'Create the mail
  6.         Set OutApp = CreateObject("Outlook.Application")
  7.         Set OutMail = OutApp.CreateItem(0)
  8.         AttachFile = "C:\excel\abc.xlsx"
  9.         On Error Resume Next
  10.         With OutMail
  11.             .To = "abc@email.com"
  12.             .CC = "cc@email.com"
  13.             .BCC = ""
  14.             .Subject = "Test add excel cell image to email"
  15.             .Body = "Dear All," & vbNewLine & vbNewLine
  16.             '請問怎樣將圖貼在這裡? & "Regards!"

  17.             .Attachments.Add AttachFile
  18.             .Display
  19. End With
  20.         On Error GoTo 0
  21. End Sub
複製代碼
文章來源:http://forum.twbts.com/viewthread.php?tid=11214&highlight=
回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  

GMT+8, 2020-2-25 14:13 , Processed in 0.140178 second(s), 19 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表