Outlook makro hanya berfungsi untuk satu akun


0

Saya telah menggunakan prospek makro untuk memindahkan semua konsep langsung ke kotak keluar:

 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

Makro berfungsi pada satu akun tetapi ketika saya beralih ke akun lain saya mendapatkan kesalahan: "Kesalahan waktu berjalan '-2147467259 (80004005)': Outlook tidak mengenali satu atau lebih nama." Ketika saya menekan debug itu menunjukkan panah kuning di baris "Kirim. Kirim" PrintScreen


1
sepertinya ada masalah dengan beberapa pesan di folder itu, bukan dengan makro. Sudahkah Anda mencoba mengirimnya secara manual?
Máté Juhász

1
Terima kasih, kamu benar. Saya membuat beberapa pesan baru dan berhasil. Maaf untuk pertanyaan noob itu :)
Roy_Batty

1
Anda mungkin ingin menerapkan beberapa penanganan kesalahan di makro Anda :)
Máté Juhász

1
Bagaimana saya bisa memberi Anda reputasi?
Roy_Batty
Dengan menggunakan situs kami, Anda mengakui telah membaca dan memahami Kebijakan Cookie dan Kebijakan Privasi kami.
Licensed under cc by-sa 3.0 with attribution required.