- 帖子
- 561
- 主題
- 160
- 精華
- 0
- 積分
- 725
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- xp
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2014-9-10
- 最後登錄
- 2026-2-12
  
|
DEAR ALL 大大
1.如表一.執行後會出現視窗 "一個應用程式嘗試代理你自動傳送電子郵件.你要選取作業嗎. 口是口否"需選是方可自動MAIL.
2.不想秀出該提示視窗.想執行後直接MAIL,加IApplication.DisplayAlerts = False 於任何處都沒用.
3.請問各位大大該如何修改. 煩不吝賜教 THANKS ROBERT 12/02
表一
Option Explicit
Sub SenddMail()
Dim oltAPP As Outlook.Application
Dim myMail As MailItem
Dim Sender As Long
Set oltAPP = CreateObject("Outlook.Application")
Set myMail = oltAPP.CreateItem(olMailItem)
With myMail
.To = "[email protected];[email protected]"
.CC = "[email protected];[email protected]"
.BodyFormat = olFormatPlain
.Body = "" & Sheet1.Range("A1") & "" & Chr(10) & "" & Sheet1.Range("A2") & "" & Chr(10) & "" & Sheet1.Range("A3") & "" '內容
.Subject = "" & Sheet1.Range("A4") & "" '主旨
.Send
End With
Set oltAPP = Nothing
Set myMail = Nothing
End Sub |
|
發表於 2014-12-2 11:15
| 
