Outlook 2013 с помощью VBA для отправки Черновики

Question

Доброе утро,

Использование Outlook 2010 Я скомпилировал код, чтобы отправить все письма, которые были сохранены в папке Черновики данной учетной записи. Теперь я обновился до Office 2013. Я получаю сообщение об ошибке ... Это бит .Send, где он падает, и представляет сообщение об ошибке:

«Этот метод нельзя использовать с встроенным ответом почты «.

Я уверен, что существует простой способ отправки черновиков, но я просмотрел веб-страницы и пока не могу понять.

Public Sub SendDrafts() 

Dim lDraftItem As Long 
Dim myOutlook As Outlook.Application 
Dim myNameSpace As Outlook.NameSpace 
Dim myFolders As Outlook.Folders 
Dim myDraftsFolder As Outlook.MAPIFolder 

'Send all items in the "Drafts" folder that have a "To" address filled 

'Setup Outlook 

Set myOutlook = Outlook.Application 
Set myNameSpace = myOutlook.GetNamespace("MAPI") 
Set myFolders = myNameSpace.Folders 

'Set Draft Folder. This will need modification based on where it's 


Set myDraftsFolder = myFolders("accounts@credec.co.uk").Folders("Drafts") 

'Loop through all Draft Items 

For lDraftItem = myDraftsFolder.Items.count To 1 Step -1 

'Check for "To" address and only send if "To" is filled in. 

If Len(Trim(myDraftsFolder.Items.Item(lDraftItem).To)) ] 0 Then 

'Send Item 

myDraftsFolder.Items.Item(lDraftItem).Send 

End If 
Next lDraftItem 

'Clean-up 

Set myDraftsFolder = Nothing 
Set myNameSpace = Nothing 
Set myOutlook = Nothing 

End Sub 

Answer 1

Я знаю, что это старое, но в случае, если чей-то ищу ответ:

«Активный Инлайн Response» относится к проекту, который открыт в Outlook. Итак, когда вы отлаживаете, закройте черновик и откиньтесь назад к другому сообщению. Затем посмотрите, будет ли ваш код работать.

Answer 2

Я обнаружил, что если вы нажали на папку с черновиком, чтобы активировать папку «Черновик», вы получите это сообщение об ошибке, как правило, по электронной почте в выделенной папке.

РЕШЕНИЕ: Нажмите любую другую папку, затем запустите код, должен работать, мой сделал!