返回列表 上一主題 發帖

[發問] 自動MAIL問題請教

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2014-12-2 21:11 | 只看該作者
DEAR  ALL 大大
   1.如表一.執行後會出現視窗 "一個應用程式嘗試代理你自動傳送電子郵件.你要選取作業嗎. ...
rouber590324 發表於 2014-12-2 11:15

關鍵在這一句話 :
一個應用程式嘗試代理你自動傳送電子郵件.你要選取作業嗎. 口是口否
這是 Outlook 程式防病毒偷寄感染信件出去的機制所顯示的訊息,
當然在 Excel 這裡怎麼改都沒用囉.

你可在 Outlook 裡找找看是否有類似 : 若其他程式寄出信件請通知我 之類的選項,
把它改成不通知即可解決,
當然...這樣會有風險.
因為我目前沒有在用 Outlook 所以不能抓圖給你參考.

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
3#
發表於 2014-12-3 11:37 | 只看該作者
DEAR   luhpro -
一語驚醒夢中人.感謝您之說明 THANKS*10000
羅

TOP

        靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。
返回列表 上一主題