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

Conas ildhréachtaí a sheoladh ag an am céanna in Outlook?

Má tá iliomad dréacht-theachtaireachtaí i d’fhillteán Dréachtaí, agus anois, ba mhaith leat iad a sheoladh ag an am céanna gan ceann ar cheann a sheoladh. Conas a d’fhéadfá déileáil leis an bpost seo go tapa agus go héasca in Outlook?

Seol gach dréacht-teachtaireacht ag an am céanna in Outlook le cód VBA


Seol gach dréacht-teachtaireacht ag an am céanna in Outlook le cód VBA

Is féidir leis na cóid VBA seo a leanas cabhrú leat gach dréacht-ríomhphost nó gach dréacht-ríomhphost roghnaithe a sheoladh ón bhfillteán Dréachtaí ag an am céanna, déan é seo le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Ansin cliceáil Ionsáigh > Modúil, cóipeáil agus greamaigh an cód thíos sa mhodúl bán oscailte, féach an pictiúr:

Cód VBA: Seol gach dréacht-ríomhphost ag an am céanna in 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. Ansin sábháil an cód, agus brúigh F5 eochair chun an cód seo a rith, beidh bosca pras aníos chun a mheabhrú duit má sheolann tú na dréachtaí go léir, cliceáil Is ea, féach ar an scáileán:

4. Agus tiocfaidh bosca dialóige amach le cur i gcuimhne duit cé mhéad dréacht-ríomhphost a seoladh amach, féach an scáileán:

5. Agus ansin cliceáil OK cnaipe, na ríomhphoist go léir sa Dréachtaí seolfar an fillteán ag an am céanna, féach an scáileán:

Nótaí:

1. Seolfaidh an cód thuas gach dréacht-ríomhphost ó gach cuntas i do Outlook.

2. Mura dteastaíonn uait ach roinnt ríomhphoist shonracha a sheoladh ón bhfillteán Dréachtaí, cuir an cód VBA seo a leanas i bhfeidhm:

Cód VBA: Seol ríomhphoist roghnaithe ón bhfillteán Dréachtaí:

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

Airteagail ghaolmhara:

Conas Ríomhphost a sheoladh chuig Il-Faighteoirí ina n-aonar in Outlook?

Conas Ríomhphoist Phearsantaithe a sheoladh chuig liosta ó Excel Via Outlook?

Conas Féilire a Sheoladh chuig Il-Faighteoirí ina n-aonar in Ionchas?

Conas Ríomhphost a sheoladh chuig Il-Faighteoirí Gan iad a bheith ar an eolas faoi Outlook?


Kutools for Outlook - Tugann sé 100 Gné Ard le Outlook, agus Déan an Obair i bhfad Níos Éasca!

  • Auto CC / BCC de réir rialacha agus ríomhphost á sheoladh; Auto Ar Aghaidh Ríomhphoist Il de réir saincheaptha; Freagra Auto gan freastalaí malairte, agus gnéithe níos uathoibríoch ...
  • Rabhadh BCC - taispeáin teachtaireacht nuair a dhéanann tú iarracht gach ceann a fhreagairt má tá do sheoladh ríomhphoist ar liosta BCC; Meabhraigh Nuair a bhíonn Ceangaltáin ar Iarraidh, agus gnéithe meabhrúcháin níos mó ...
  • Freagra (Gach) Leis na Ceangaltáin Uile sa chomhrá poist; Freagair go leor Ríomhphost i soicindí; Beannacht Auto Cuir leis nuair a thabharfar freagra; Cuir Dáta leis san ábhar ...
  • Uirlisí Ceangail: Bainistigh Gach Ceangaltán i ngach Ríomhphost, Auto Dícheangail, Comhbhrú Gach, Athainmnigh Uile, Sábháil Gach ... Tuarascáil Thapa, Líon Ríomhphoist Roghnaithe...
  • Ríomhphoist Cumhachtacha Junk de réir saincheaptha; Bain Ríomhphoist agus Teagmhálacha Dúblacha... Cuir ar do chumas déanamh níos cliste, níos gasta agus níos fearr in Outlook.
kutools lámhaigh dearcadh kutools tab 1180x121
kutools lámhaigh dearcadh kutools móide cluaisín 1180x121
 
Sórtáil tuairimí de réir
Comments (15)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Brilliant, d'oibrigh sé charm, go raibh maith agat :)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
einfach nur perfekt. Dank Herzlichen
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cóipeáladh mar atá thuas ach nuair a bhrúim F5 ní tharlaíonn aon rud
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, a Chathail,
Oibríonn an cód thuas go breá i mo Outlook, cén leagan Outlook a úsáideann tú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá cuntais iolracha malairte agam. Ba mhaith liom ceann de na cuntais nach é mo réamhshocrú a bheith mar sheoltóir. Cá gcuirfinn é seo isteach sa chód? Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhfaighidh aon duine roinnt ríomhphost chuig an bhfillteán scriosta agus é seo á dhéanamh?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Bill,
An bhfuil fonn ort go leor ríomhphost roghnaithe a sheoladh ón fodar scriosta?
Tabhair do fhadhb níos mionsonraithe, go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit skyyang, tá mé os comhair an fhadhb chéanna. Dréachtaím 15-20 ríomhphost de ghnáth agus ansin bainim úsáid as an gcód seo chun iad a sheoladh go léir ag an am céanna, ach tuigim níos déanaí nach seoltar ceann de na r-phoist sin, ach seoltar chuig mo fhillteán 'Scriostha' iad. Deir fiú an leid an líon ceart ríomhphoist le haghaidh m.sh.: '20 ríomhphost seolta' ach nuair a dhéanaim seiceáil, ní bheadh ​​ach 19 seolta, ceann amháin beidh mé suite i mo fhillteán míreanna scriosta. Ba mhaith liom na ríomhphoist go léir a sheoladh chuig a gcuid faighteoirí gan earráid. An féidir leat insint dom le do thoil cén fáth a tharlaíonn sé seo. Cabhrú le do thoil.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Darewin,Tá na cóid thuas nuashonraithe againn, bain triail eile as, go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Fadhb chéanna: má roghnaíonn tú 4 theachtaireacht, tar éis trí cinn acu a chur san fhillteán bruscar (mar gheall ar an ráiteas "xDraftsItems.Item(i).Delete")
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
D'úsáideamar an script chun gach dréacht-ríomhphost a sheoladh ag an am céanna le haghaidh baisc de ríomhphoist ráitis a gineadh ó saoi 200. Tá cuma bhreá ar na ríomhphoist sna míreanna seolta ach tá custaiméirí ag fáil iad leis an gcorp téacs i Sínis! Aon smaointe cad a d'fhéadfadh a bheith ag tarlú anseo?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An féidir leat a mhíniú cén fáth a ndéantar an ríomhphost deiridh (i = 1) a athchruthú i MailItem nua seachas díreach .Send?

Go raibh maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, ceist tapaidh b'fhéidir go bhfuil smaoineamh agat. Tá feidhmchlár seachtrach againn a shábhálann gach ríomhphost chuig an bhfillteán dréachtaí. má rithim an macra tá an fhadhb againn, nach bhfuil ach an chéad phost sa liosta á sheoladh i gceart, cuirtear gach ríomhphost eile siar toisc go gcuireann sé comharthaí athfhriotail leis an seoladh ríomhphoist. An bhfuil bealach ann chun é seo a sheachaint?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Seolann an cód seo gach dréacht i bhfofhillteán ar a dtugtar Merge Tools (iarrann sé ort roimh é a sheoladh). Tá mé cinnte gur féidir leat guys é a chur in eagar chun freastal ar do riachtanais áfach. Tá sé i bhfad níos simplí. Bain taitneamh as :)
Fo-SendAllMergeToolsDrafts()

Má tá MsgBox("An bhfuil tú cinnte gur mian leat GACH mír a sheoladh i d'fhillteán dréachtaí Merge Tools?", _
vbQuestion + vbYesNo) <> vbYes Then Scoir Fo

Dim myNamespace As Outlook.NameSpace 'Athraigh an t-amharc go dtí an Bosca Isteach chun earráid inlíne a sheachaint
Socraigh myNamespace = Application.GetNamespace("MAPI") 'Athraigh an t-amharc go dtí an Bosca Isteach chun earráid inlíne a sheachaint
Socraigh Application.ActiveExplorer.CurrentFolder = _
myNamespace.GetDefaultFolder(olFolderInbox) 'Athraigh an t-amharc go dtí an Bosca Isteach chun earráid inlíne a sheachaint

Dim fldDraft Mar MAPIFolder, msg Mar Outlook.MailItem, inCount As Slánuimhir
Socraigh fldDraft = Outlook.GetNamespace("MAPI").GetDefaultFolder(olFolderDrafts).Fillteáin("Merge Tools") 'Seolann gach dréacht san fhillteán Merge Tools amháin
intCount = 0
Déan Cé go bhfuil fldDraft.Items.count > 0
Socraigh msg = fldDraft.Items(1)
msg.Seol
intCount = intCount+1
Lúb
Mura bhfuil (msg Is Faic) Ansin Socraigh msg = Nothing
Socraigh fldDraft = Ní dhéanfaidh aon ní
MsgBox intCount & " teachtaireachtaí seolta", vbInformation + vbOKOnly

Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit a chairde. Shíl mé go roinnfinn. Seo é mo chód chun gach dréacht a sheoladh:
Fo SendAllDrafts() 'Le jamesmalcolmwood@gmail.com

If MsgBox("An bhfuil tú cinnte gur mian leat GACH mír a sheoladh i d'fhillteán dréachtaí?", _
vbQuestion + vbYesNo) <> vbYes Then Scoir Fo

Dim myNamespace As Outlook.NameSpace 'Athraigh an t-amharc go dtí an Bosca Isteach chun earráid inlíne a sheachaint
Socraigh myNamespace = Application.GetNamespace("MAPI") 'Athraigh an t-amharc go dtí an Bosca Isteach chun earráid inlíne a sheachaint
Socraigh Application.ActiveExplorer.CurrentFolder = _
myNamespace.GetDefaultFolder(olFolderInbox) 'Athraigh an t-amharc go dtí an Bosca Isteach chun earráid inlíne a sheachaint

Dim fldDraft Mar MAPIFolder, msg Mar Outlook.MailItem, inCount As Slánuimhir
Socraigh fldDraft = Outlook.GetNamespace ("MAPI").GetDefaultFolder(olFolderDrafts) 'Seolann sé gach dréacht i do phríomhfhillteán dréachtaí. Le haghaidh fofhillteán, cuir .Fillteán ("ainm fillteáin") leis
intCount = 0
Déan Cé go bhfuil fldDraft.Items.count > 0
Socraigh msg = fldDraft.Items(1)
msg.Seol
intCount = intCount+1
Lúb
Mura bhfuil (msg Is Faic) Ansin Socraigh msg = Nothing
Socraigh fldDraft = Ní dhéanfaidh aon ní
MsgBox intCount & " teachtaireachtaí seolta", vbInformation + vbOKOnly

Fo Deireadh
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL