返回列表 上一主題 發帖

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

lone_tiger0303

帖子
76 
主題
19 
精華
0 
積分
145 
點名
0  
作業系統
win xp 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2010-5-24 
最後登錄
2014-6-24 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-7-24 09:02 | 只看該作者

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

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

jackdream
　暱稱: Jack

中學生Rank: 2

帖子
133 
主題
9 
精華
0 
積分
147 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2024-11-11 
2#
發表於 2010-7-24 15:17 | 只看該作者
回復 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

  5.     Set oltAPP = CreateObject("Outlook.Application")
  6.     Set myMail = oltAPP.CreateItem(olMailItem)

  8.     With myMail
  9.     .Attachments.Add "d:\t1.txt"      '附件(請自行更改路徑)
  10.     .To = "[email protected]"        '收件者信箱
  11.     .BodyFormat = olFormatRichText
  12.     .Body = "這是一封測試信件"        '信件內容
  13.     .Subject = "測試信件"             '信件主旨
  14.     .Send
  15.     End With

  17.     oltAPP.Quit
  18.     Set oltAPP = Nothing
  19.     Set myMail = Nothing
  20. End Sub
複製代碼

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題