標題:
[發問]
自動MAIL問題請教
[打印本頁]
作者:
rouber590324
時間:
2014-12-2 11:15
標題:
自動MAIL問題請教
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
作者:
luhpro
時間:
2014-12-2 21:11
DEAR ALL 大大
1.如表一.執行後會出現視窗 "一個應用程式嘗試代理你自動傳送電子郵件.你要選取作業嗎. ...
rouber590324 發表於 2014-12-2 11:15
關鍵在這一句話 :
一個應用程式嘗試代理你自動傳送電子郵件.你要選取作業嗎. 口是口否
這是 Outlook 程式防病毒偷寄感染信件出去的機制所顯示的訊息,
當然在 Excel 這裡怎麼改都沒用囉.
你可在 Outlook 裡找找看是否有類似 : 若其他程式寄出信件請通知我 之類的選項,
把它改成不通知即可解決,
當然...這樣會有風險.
因為我目前沒有在用 Outlook 所以不能抓圖給你參考.
作者:
rouber590324
時間:
2014-12-3 11:37
DEAR luhpro -
一語驚醒夢中人.感謝您之說明 THANKS*10000
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
