帶有投票按鈕的反覆發送電子郵件VBA

-2

我正在設置VBS/WSH/BAT腳本，以允許用戶每隔一天安排一次電子郵件以附帶投票按鈕發送。帶有投票按鈕的反覆發送電子郵件VBA

我發現，似乎是一個古老的腳本做什麼，我需要，但不斷收到錯誤

錯誤：所需的對象：「收件人」代碼：800A01A8

Dim olApplication 
Dim olMail 

Set olApplication = WScript.CreateObject("Outlook.Application") 
Set olMail = olApplication.CreateItem(0) 

With olMail 
    .Subject = "Subject line" 
    .Body = "Any text you might want to include." 
    .Recipients.Add("UserA;UserB;UserC") 
    .VotingOptions = "Available Immediately;Available Soon;Unavailable" 
End With 

If Recipients.ResolveAll Then 
    olMail.Send 
End If

任何想法在那裏我去錯了？

來源

2014-11-14 NXSmiggy

您是否真的將多個收件人傳遞給Recipients.Add？要麼爲每個收件人調用Recipients.Add，要麼將To屬性設置爲「;」分隔的名單或地址列表。 –

我只用一個收件人使用電子郵件地址和用戶ID，但它仍然會引發該錯誤 – NXSmiggy

如果設置了To屬性，會發生什麼情況？ –

您的代碼執行時Outlook是否正在運行？嘗試添加呼叫o Namespace.Logon：

Set olApplication = WScript.CreateObject("Outlook.Application") 
set olNS = olApplication.GetNamespace("MAPI") 
olNS.Logon 
Set olMail = olApplication.CreateItem(0)

來源

2014-11-18 17:44:03

Outlook運行，並與添加該代碼它仍然會拋出錯誤，即使我替換.To與.Recipients.Add（「[email protected]」） – NXSmiggy

等一下。添加收件人時是否出現錯誤？或者當你打電話給Recipients.ResolveAll？將其移動到「with」塊內並將其更改爲「If olMail.Recipients.ResolveAll Then」 –

帶有投票按鈕的反覆發送電子郵件VBA

回答

相關問題