簡體   English   中英

使用 Outlook 2013/Excel 2013 發送郵件

[英]Sending Emails with Outlook 2013/Excel 2013

我目前有一個程序可以將電子郵件排隊發送到電子表格中,然后通過 Outlook 應用程序將它們發送出去(Excel 和 Outlook 都是 2013 版本)。

當我運行該程序時,它沒有問題,但是當同事運行該程序時,他們繼續收到“程序正在嘗試代表您發送消息”的提示,然后他們必須允許或拒絕每一個個別地。

我已經通過不同的方法來解決這個問題,從更改注冊表(嘗試過但沒有改變任何東西)到安全設置(仍然沒有)。

有沒有辦法用 VBA 解決這個問題?

當前代碼是:

Sub SendEmail(what_address As String, subject_line As String, mail_body_message As String)

Dim olApp As Outlook.Application
Dim oAttach As Outlook.Attachment

Set olApp = CreateObject("Outlook.Application")

Dim olMail As Outlook.MailItem

Set olMail = olApp.CreateItem(olMailItem)

With olMail

.To = "ADDRESS"

.Subject = "SUBJECT"

.BodyFormat = olFormatHTML

.HTMLBody = mail_body_message

'.CC = "EMAIL"
.BCC = ""

.Importance = olImportanceHigh

.ReadReceiptRequested = True

.Send

End With

End Sub 

謝謝!

簡短的答案:安裝最新的防病毒應用程序或使用RedemptionClickYes之類的產品

有關更多選項和詳細討論,請參見http://www.outlookcode.com/article.aspx?id=52

從Ron的網站而不是.Send

 .Display 
 Application.Wait (Now + TimeValue("0:00:02"))
 Application.SendKeys "%s"

這將只顯示電子郵件和發送鍵Alt-S發送。

暫無
暫無

聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.

 
粵ICP備18138465號  © 2020-2024 STACKOOM.COM