![](/img/trans.png)
[英]Sending emails from Excel (2013) from an alternate (not main) Outlook (2013) account. (VBA)
[英]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
謝謝!
簡短的答案:安裝最新的防病毒應用程序或使用Redemption或ClickYes之類的產品 。
有關更多選項和詳細討論,請參見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.