Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս միանգամից մի քանի նախագիծ ուղարկել Outlook- ում:

Եթե ​​ձեր Drafts թղթապանակում կան բազմաթիվ նախագիծ հաղորդագրություններ, և այժմ, դուք ցանկանում եք դրանք միանգամից ուղարկել առանց մեկ առ մեկ ուղարկելու: Ինչպե՞ս կարող եք արագ և հեշտությամբ զբաղվել այս գործով Outlook- ում:

Միանգամից ուղարկեք բոլոր նախագծերի հաղորդագրությունները Outlook- ում `VBA կոդով


Միանգամից ուղարկեք բոլոր նախագծերի հաղորդագրությունները Outlook- ում `VBA կոդով

Հետևյալ VBA կոդերը կարող են օգնել ձեզ միանգամից ուղարկել բոլոր կամ ընտրված նամակների նախագիծը Drafts թղթապանակից, արեք հետևյալ կերպ.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Այնուհետեւ կտտացրեք Տեղադրել > Մոդուլներ, պատճենեք և տեղադրեք կոդը ներքևում բացված դատարկ մոդուլի մեջ, տես նկարի նկարը.

VBA կոդ. Ուղարկեք բոլոր նամակների նախագիծը միանգամից Outlook- ում.

Sub SendAllDraftEmails()
Dim xAccount As Account
Dim xDraftFld As Folder
Dim xItemCount As Integer
Dim xCount As Integer
Dim xDraftsItems As Outlook.Items
Dim xPromptStr As String
Dim xYesOrNo As Integer
Dim i As Long
Dim xCurFld As Folder
Dim xTmpFld As Folder
On Error Resume Next
xItemCount = 0
xCount = 0
Set xTmpFld = Nothing
Set xCurFld = Application.ActiveExplorer.CurrentFolder
For Each xAccount In Outlook.Application.Session.Accounts
    Set xDraftFld = xAccount.DeliveryStore.GetDefaultFolder(olFolderDrafts)
    xItemCount = xItemCount + xDraftFld.Items.Count
    If xDraftFld.EntryID = xCurFld.EntryID Then
        Set xTmpFld = xCurFld.Parent
    End If
Next xAccount
Set xDraftFld = Nothing
If xItemCount > 0 Then
   xPromptStr = "Are you sure to send out all the drafts?"
    xYesOrNo = MsgBox(xPromptStr, vbQuestion + vbYesNo, "Kutools for Outlook")
    If xYesOrNo = vbYes Then
        If Not xTmpFld Is Nothing Then
            Set Application.ActiveExplorer.CurrentFolder = xTmpFld
        End If
        VBA.DoEvents
        For Each xAccount In Outlook.Application.Session.Accounts
            Set xDraftFld = xAccount.DeliveryStore.GetDefaultFolder(olFolderDrafts)
            Set xDraftsItems = xDraftFld.Items
            For i = xDraftsItems.Count To 1 Step -1
                If xDraftsItems.Item(i).Recipients.Count <> 0 Then
                    xDraftsItems.Item(i).sEnd
                    xCount = xCount + 1
                End If
            Next
        Next xAccount
        VBA.DoEvents
        Set Application.ActiveExplorer.CurrentFolder = xCurFld
        MsgBox "Successfully sent " & xCount & " messages", vbInformation, "Kutools for Outlook"
    End If
Else
    MsgBox "No Drafts!", vbInformation + vbOKOnly, "Kutools for Outlook"
End If
End Sub

3, Ապա պահեք կոդը և սեղմեք F5 Այս կոդն աշխատեցնելու բանալին, կհայտնվի հուշման տուփ ՝ բոլոր նախագիծը ուղարկելու դեպքում հիշեցնելու համար, կտտացրեք այո, տես նկարի նկարը.

4, Եվ դուրս կգա երկխոսության պատուհան `հիշեցնելու համար, թե քանի նամակ է ուղարկվել, տես նկարի նկարը.

5. Եվ այնուհետեւ կտտացրեք OK կոճակը, բոլոր էլ. փոստերը Նախագծեր թղթապանակը կուղարկվի միանգամից, տես նկարի նկարը.

Նշումներ:

1. Վերոհիշյալ կոդը ձեր Outlook- ի բոլոր հաշիվներից կուղարկի բոլոր նամակների նախագիծը:

2. Եթե դուք պարզապես ցանկանում եք ուղարկել որոշակի էլ-նամակներ Drafts թղթապանակից, խնդրում ենք կիրառել հետևյալ VBA կոդը.

VBA կոդ. Ուղարկված ընտրված էլ-նամակները ուղարկեք Drafts թղթապանակից.

Sub SendSelectedDraftEmails()
Dim xSelection As Selection
Dim xPromptStr As String
Dim xYesOrNo As Integer
Dim i As Long
Dim xAccount As Account
Dim xCurFld As Folder
Dim xDraftsFld As Folder
Dim xTmpFld As Folder
Dim xArr() As String
Dim xCount As Integer
Dim xMail As MailItem
On Error Resume Next
xCount = 0
Set xTmpFld = Nothing
Set xCurFld = Application.ActiveExplorer.CurrentFolder
For Each xAccount In Outlook.Application.Session.Accounts
    Set xDraftsFld = xAccount.DeliveryStore.GetDefaultFolder(olFolderDrafts)
    If xDraftsFld.EntryID = xCurFld.EntryID Then
        Set xTmpFld = xCurFld.Parent
    End If
Next xAccount
If xTmpFld Is Nothing Then
    MsgBox "The current folder is not a draft folder", vbInformation, "Kutools for Outlook"
    Exit Sub
End If
Set xSelection = Outlook.Application.ActiveExplorer.Selection
If xSelection.Count > 0 Then
    xPromptStr = "Are you sure to send out the selected " & xSelection.Count & " draft item(s)?"
    xYesOrNo = MsgBox(xPromptStr, vbQuestion + vbYesNo, "Kutools for Outlook")
    If xYesOrNo = vbYes Then
        ReDim xArr(xSelection.Count - 1)
        For i = 1 To xSelection.Count
            xArr(i - 1) = xSelection.Item(i).EntryID
        Next
        Set Application.ActiveExplorer.CurrentFolder = xTmpFld
        VBA.DoEvents
        For i = 0 To UBound(xArr)
            Set xMail = Application.Session.GetItemFromID(xArr(i))
            If xMail.Recipients.Count <> 0 Then
                xMail.sEnd
                xCount = xCount + 1
            End If
        Next
        VBA.DoEvents
        Set Application.ActiveExplorer.CurrentFolder = xCurFld
        MsgBox "Successfully sent " & xCount & " messages", vbInformation, "Kutools for Outlook"
    End If
Else
    MsgBox "No items selected!", vbInformation, "Kutools for Outlook"
End If
End Sub

Related Articles:

Ինչպե՞ս էլեկտրոնային փոստով ուղարկել մի քանի հասցեատերերի անհատապես Outlook- ում:

Ինչպե՞ս անհատականացված զանգվածային էլ-նամակներ Excel- ից ցուցակ ուղարկել Outlook- ի միջոցով:

Ինչպե՞ս օրացույց ուղարկել Outlook- ում անհատապես մի քանի ստացողի:

Ինչպե՞ս էլեկտրոնային նամակ ուղարկել մի քանի հասցեատերերի ՝ առանց նրանց Outlook- ի իմացության:


Kutools Outlook- ի համար. 100 առաջադեմ առանձնահատկություններ է բերում Outlook- ին և շատ ավելի հեշտացնում աշխատանքը:

  • Auto CC / BCC կանոններով `էլ. նամակ ուղարկելիս; Ավտոմեքենաների փոխանցում Բազմաթիվ նամակներ ըստ սովորույթի; Ավտոմատ պատասխան առանց փոխանակման սերվերի և ավելի ավտոմատ հատկությունների ...
  • Նախազգուշացում BCC- ի համար - ցույց տալ հաղորդագրությունը, երբ փորձում ես պատասխանել բոլորին եթե ձեր փոստի հասցեն գտնվում է BCC ցուցակում; Հիշեցրեք հավելվածները բաց թողնելիսև ավելին հիշեցնում են հատկությունները ...
  • Պատասխանեք (բոլորը) փոստի խոսակցության բոլոր կցորդներով; Պատասխանեք շատ նամակների վայրկյանների ընթացքում; Ավտոմատ ավելացնել ողջույնները երբ պատասխանել; Ավելացնել ամսաթիվը վերնագրում ...
  • Կցման գործիքներ. Կառավարեք բոլոր կցորդները բոլոր փոստերում, Ավտոմատ անջատում, Սեղմել բոլորը, Վերանվանել բոլորը, պահպանել բոլորը ... Արագ զեկույց, Հաշվեք ընտրված նամակները...
  • Հզոր անպիտան նամակներ ըստ սովորույթի; Հեռացրեք կրկնօրինակ նամակները և կոնտակտները... Հնարավորություն տվեք Outlook- ում ավելի խելացի, արագ և լավ կատարել:
shot kutools Outlook kutools էջանիշ 1180x121
shot kutools Outlook kutools գումարած ներդիր 1180x121
 
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (15)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Փայլուն, հմայք է աշխատել, շնորհակալություն :)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
einfach nur perfekt. Հերցլիչեն Դանկ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Պատճենվել է վերևում նշվածի համաձայն, բայց երբ ես սեղմում եմ F5, ոչինչ չի պատահում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Քեթլին,
Վերոնշյալ կոդը լավ է աշխատում իմ Outlook-ում, Outlook-ի ո՞ր տարբերակն եք օգտագործում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ունեմ բազմաթիվ փոխանակման հաշիվներ: Ուզում եմ ուղարկել այն հաշիվներից մեկը, որն իմ կանխադրված չէ: Որտե՞ղ մտցնեմ սա կոդի մեջ: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Որևէ մեկը ջնջված թղթապանակին ուղարկված նամակներ է ստանում՝ դա անելով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Բիլ,
Ցանկանու՞մ եք ուղարկել մի քանի ընտրված նամակներ ջնջված պահոցից:
Խնդրում եմ ավելի մանրամասն ներկայացրեք ձեր խնդիրը, շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև skyyang, ես բախվում եմ նույն խնդրին: Ես սովորաբար 15-20 էլ. Նույնիսկ հուշում է գրված նամակների ճիշտ թիվը, օրինակ՝ «20 նամակ ուղարկվել է», բայց երբ ես ստուգեմ, միայն 19-ը կուղարկվեր, մեկը ես կգտնեմ այն ​​իմ ջնջված տարրերի թղթապանակում: Ես ուզում եմ, որ բոլոր նամակներն առանց սխալի ուղարկվեն իրենց հասցեատերերին: Խնդրում եմ, կարո՞ղ եք ասել ինձ, թե ինչու է դա տեղի ունենում: Խնդրում ենք օգնել.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Darewin, Մենք թարմացրել ենք վերը նշված ծածկագրերը, խնդրում ենք նորից փորձեք, շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Նույն խնդիրը. եթե ընտրում եք 4 հաղորդագրություն, երեքն ուղարկելուց հետո հայտնվում է աղբարկղում («xDraftsItems.Item(i).Delete» հայտարարության պատճառով)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մենք օգտագործեցինք սկրիպտը, որպեսզի ուղարկենք բոլոր սևագիր նամակները Sage 200-ից ստացված նամակների փաթեթի համար։ Կա՞ պատկերացում, թե ինչ կարող է տեղի ունենալ այստեղ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ եք բացատրել, թե ինչու է վերջին նամակը (i = 1) վերստեղծվել նոր MailItem-ում պարզապես .Send-ի փոխարեն:

Thanks.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, արագ հարց, գուցե դուք ունեք գաղափար: Մենք ունենք արտաքին հավելված, որը պահպանում է բոլոր նամակները նախագծերի թղթապանակում: Եթե ​​ես գործարկեմ մակրո, մենք խնդիր ունենք, որ ցուցակի միայն առաջին նամակն է ճիշտ ուղարկվում, մնացած բոլոր նամակները հետաձգվում են, քանի որ այն ավելացնում է «» չակերտները փոստի հասցեին: Կա՞ արդյոք դրանից խուսափելու միջոց:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս կոդը ուղարկում է բոլոր սևագրերը Merge Tools կոչվող ենթաթղթապանակում (այն հարցնում է ձեզ ուղարկելուց առաջ): Համոզված եմ, որ դուք կարող եք այն խմբագրել ձեր կարիքներին համապատասխան: Դա շատ ավելի պարզ է: Վայելեք :)
Sub SendAllMergeToolsDrafts()

Եթե ​​MsgBox («Դուք վստա՞հ եք, որ ցանկանում եք ուղարկել ԲՈԼՈՐ տարրերը ձեր Merge Tools-ի սևագրերի պանակում», _
vbQuestion + vbYesNo) <> vbYes Այնուհետեւ Ելք Sub

Մթնեցրեք myNamespace-ը որպես Outlook.NameSpace «Փոխեք տեսքը մուտքի արկղ՝ ներդիրային սխալից խուսափելու համար
Սահմանեք myNamespace = Application.GetNamespace («MAPI») 'Փոխեք տեսքը մուտքի արկղ՝ ներդիրային սխալից խուսափելու համար
Սահմանել Application.ActiveExplorer.CurrentFolder = _
myNamespace.GetDefaultFolder(olFolderInbox) 'Փոխիր տեսքը մուտքի արկղ՝ ներդիրային սխալից խուսափելու համար

Dim fldDraft As MAPIFfolder, msg As Outlook.MailItem, intCount As Integer
Սահմանել fldDraft = Outlook.GetNamespace("MAPI").GetDefaultFolder(olFolderDrafts).Folders("Merge Tools") 'Ուղարկում է բոլոր սևագրերը միայն Merge Tools պանակում:
intCount = 0
Do while fldDraft.Items.count > 0
Սահմանել msg = fldDraft.Items(1)
msg.Ուղարկել
intCount = intCount + 1
Հանգույց
Եթե ​​ոչ (msg Is Nothing) Ապա Սահմանեք msg = Ոչինչ
Սահմանել fldDraft = Ոչինչ
MsgBox intCount & « ուղարկված հաղորդագրություններ», vbInformation + vbOKOnly

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն տղաներ. Մտածեցի, որ կկիսվեմ: Ահա իմ կոդը՝ բոլոր սևագրերն ուղարկելու համար.
Sub SendAllDrafts() «Ըստ jamesmalcolmwood@gmail.com

Եթե ​​MsgBox («Դուք վստա՞հ եք, որ ցանկանում եք ուղարկել ձեր նախագծերի թղթապանակի ԲՈԼՈՐ տարրերը», _
vbQuestion + vbYesNo) <> vbYes Այնուհետեւ Ելք Sub

Մթնեցրեք myNamespace-ը որպես Outlook.NameSpace «Փոխեք տեսքը մուտքի արկղ՝ ներդիրային սխալից խուսափելու համար
Սահմանեք myNamespace = Application.GetNamespace («MAPI») 'Փոխեք տեսքը մուտքի արկղ՝ ներդիրային սխալից խուսափելու համար
Սահմանել Application.ActiveExplorer.CurrentFolder = _
myNamespace.GetDefaultFolder(olFolderInbox) 'Փոխիր տեսքը մուտքի արկղ՝ ներդիրային սխալից խուսափելու համար

Dim fldDraft As MAPIFfolder, msg As Outlook.MailItem, intCount As Integer
Սահմանել fldDraft = Outlook.GetNamespace("MAPI").GetDefaultFolder(olFolderDrafts) 'Ուղարկում է բոլոր սևագրերը ձեր հիմնական սևագրերի պանակում: Ենթաթղթապանակի համար ավելացրեք .Folders («թղթապանակի անունը»)
intCount = 0
Do while fldDraft.Items.count > 0
Սահմանել msg = fldDraft.Items(1)
msg.Ուղարկել
intCount = intCount + 1
Հանգույց
Եթե ​​ոչ (msg Is Nothing) Ապա Սահմանեք msg = Ոչինչ
Սահմանել fldDraft = Ոչինչ
MsgBox intCount & « ուղարկված հաղորդագրություններ», vbInformation + vbOKOnly

Վերջ Sub
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից