[發問] 如何以巨集執行mail上傳

lone_tiger0303

我想要作一個CommandButton1可以一按就將檔案mail上傳指定帳號
請問巨集程式要如何寫呢

jackdream

回復 1# lone_tiger0303

'以 MS OutLook 寄信(非 OutLook Express)

'若出現 使用者自訂型態尚未定義, 則依以下設定
'工具　--> 設定引用項目 -->MicroSoft Outlook 11.0 object library
'若是Office 2003 是11.0,若是 Office 2002 則是10.0 以下類推

1. Sub send_mail()
   
2.     Dim oltAPP As Outlook.Application
   
3.     Dim myMail As MailItem
   
4. 
   
5.     Set oltAPP = CreateObject("Outlook.Application")
   
6.     Set myMail = oltAPP.CreateItem(olMailItem)
   
7. 
   
8.     With myMail
   
9.     .Attachments.Add "d:\t1.txt"      '附件(請自行更改路徑)
   
10.     .To = "test123@ttt.com.tw"        '收件者信箱
    
11.     .BodyFormat = olFormatRichText
    
12.     .Body = "這是一封測試信件"        '信件內容
    
13.     .Subject = "測試信件"             '信件主旨
    
14.     .Send
    
15.     End With
    
16. 
    
17.     oltAPP.Quit
    
18.     Set oltAPP = Nothing
    
19.     Set myMail = Nothing
    
20. End Sub

複製代碼