返回列表 上一主題 發帖

如何把儲存格 A1:D10 的內容變成相片另存成Jpg檔

zxcxz

帖子
34 
主題
14 
精華
0 
積分
61 
點名
0  
作業系統
Winxp 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2014-1-25 
最後登錄
2019-3-4 
1# 跳轉到 »
發表於 2014-2-15 10:45 | 顯示全部帖子
回復 4# GBKEE
延申問題，請問可以將圖片直接貼到html格式的電郵內嗎？

以下是發送電郵碼
  1. Sub SendEmail()

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

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

  20.             .Attachments.Add AttachFile
  21.             .Display
  22. End With
  23.         On Error GoTo 0
  24. End Sub
複製代碼

TOP

zxcxz

帖子
34 
主題
14 
精華
0 
積分
61 
點名
0  
作業系統
Winxp 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2014-1-25 
最後登錄
2019-3-4 
2#
發表於 2014-2-16 08:37 | 顯示全部帖子
回復  zxcxz
找到Outlook的VBA再回覆你
GBKEE 發表於 2014-2-16 06:37

5#附上的code就是從excel開啟outlook發送電郵的vba碼
但關鍵部份是怎樣在 18. 行上插入從excel cell復製出來以圖片格式貼上
多請賜教！

TOP

        靜思自在 : 成功是優點的發揮，失敗是缺點的累積。
返回列表 上一主題