Outlook 매크로는 하나의 계정에서만 작동합니다

Outlook 매크로를 사용하여 모든 초안을 보낼 편지함으로 직접 이동했습니다.

 Sub SendAllDrafts()
' Send the messages in the Drafts folder (ignore any subfolders)
If MsgBox("Are you sure you want to send ALL the items in your default Drafts folder?", _
    vbQuestion + vbYesNo) <> vbYes Then Exit Sub
Dim fldDraft As MAPIFolder, msg As Outlook.MailItem, intCount As Integer
Set fldDraft = Outlook.GetNamespace("MAPI").GetDefaultFolder(olFolderDrafts)
intCount = 0
Do While fldDraft.Items.Count > 0
    Set msg = fldDraft.Items(1)
    msg.Send
    intCount = intCount + 1
Loop
If Not (msg Is Nothing) Then Set msg = Nothing
Set fldDraft = Nothing
MsgBox intCount & " messages sent", vbInformation + vbOKOnly
End Sub

매크로가 한 계정에서 작동하지만 다른 계정으로 전환하면 "런타임 오류 '-2147467259 (80004005)': Outlook에서 하나 이상의 이름을 인식하지 못합니다."라는 오류가 발생합니다. 디버그를 누르면 "msg.Send"줄에 노란색 화살표가 나타납니다.

microsoft-outlook vba macros

— Roy_Batty
소스

매크로가 아닌 해당 폴더의 일부 메시지에 문제가있는 것 같습니다. 수동으로 보냈습니까?

— Máté Juhász

고마워요 나는 새로운 메시지를 만들었고 문제가 해결되었습니다. 그 멍청한 질문에 대해 죄송합니다 :)

— Roy_Batty

매크로에서 약간의 오류 처리를 구현하고 싶을 수도 있습니다 :)

— Máté Juhász

어떻게 평판을 줄 수 있습니까?

— Roy_Batty