Outlookマクロは1つのアカウントに対してのみ機能します

私はoutlookマクロを使ってすべてのドラフトを直接outboxに移動してきました。

 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

マクロは1つのアカウントで動作しますが、別のアカウントに切り替えるとエラーが発生します。 "実行時エラー '-2147467259（80004005）'：Outlookは1つ以上の名前を認識しません。"デバッグを押すと、 "msg.Send"行に黄色の矢印が表示されます。

microsoft-outlook vba macros

— Roy_Batty
ソース

マクロではなく、そのフォルダ内の一部のメッセージに問題があるようです。手動で送信してみましたか。

— Máté Juhász

ありがとう、あなたは正しかった。私はいくつかの新しいメッセージを作成しました、そしてそれはうまくいきました。そのnoobの質問で申し訳ありません。:)

— Roy_Batty

あなたのマクロにエラー処理を実装したいかもしれません:)

— Máté Juhász

どのように私はあなたにいくつかの評判を与えることができますか？

— Roy_Batty