Nachdem Sie einige E-Mails in Outlook verfasst haben, können Sie sie auf einmal versenden. In diesem Artikel erfahren Sie, wie Sie es mithilfe von VBA-Code erhalten.
Sie haben beispielsweise einige neue E-Mails abgeschlossen, diese jedoch nicht gesendet, sondern nur geöffnet. Und danach möchten Sie sie versenden. Im Allgemeinen müssen Sie in jeder E-Mail nacheinander auf die Schaltfläche „Senden“ klicken. Unter diesen Umständen müssen Sie sich nach einer Methode sehnen, mit der Sie alle offenen und zusammengesetzten E-Mails in großen Mengen senden können.
Im Folgenden stellen wir Ihnen einen so effektiven Weg vor. Es wird VBA verwendet. Wenn Sie nicht wissen, wie man VBA verwendet, lesen Sie den Artikel - „So führen Sie VBA-Code in Outlook aus" inzwischen.
Batch-Versand aller offenen und komponierten E-Mails
- Zunächst können Sie Ihre E-Mails wie gewohnt verfassen und offen halten.
- Drücken Sie dann „Alt + F11“, um auf den VBA-Editor zuzugreifen.
- Kopieren Sie anschließend im neuen Fenster den folgenden VBA-Code in ein Modul.
Sub BatchSendOutAllOpenEmails()
Dim objInspectors As Outlook.Inspectors
Dim i As Long
Dim objMail As Outlook.MailItem
Dim lMailCount As Long
'Get all open items in your Outlook
Set objInspectors = Outlook.Application.Inspectors
lMailCount = 0
For i = objInspectors.Count To 1 Step -1
If objInspectors.Item(i).CurrentItem.Class = olMail Then
'Get all open emails
Set objMail = objInspectors.Item(i).CurrentItem
'Send out open emails that contain subject & recipients
If objMail.Subject <> "" Then
If objMail.Recipients.Count > 0 Then
objMail.Send
lMailCount = lMailCount + 1
End If
End If
End If
Next
'Prompt you of the results
MsgBox lMailCount & " open emails have been sent out!", vbInformation + vbOKOnly
End Sub
- Danach können Sie dieses Makro entweder durch direktes Drücken der Taste „F5“ auslösen.
- Wenn das Makro abgeschlossen ist, werden Sie schließlich aufgefordert, die Anzahl der zu sendenden E-Mails anzugeben.
- Öffnen Sie nun den Postausgang, in dem Sie sehen können, dass alle zuvor geöffneten E-Mails gesendet werden.
Stellen Sie Outlook von unerwarteten Schäden wieder her
Haben Sie schon einmal eine Outlook-Beschädigung festgestellt? Viele Benutzer waren von diesem Problem betroffen und haben sich darüber beschwert. Wenn Sie zeitnahe und effektive Lösungen finden, können Sie Outlook-Daten im Allgemeinen problemlos abrufen beschädigtes PST Datei. Wenn Sie beispielsweise über aktualisierte Outlook-Daten verfügen, können Sie problemlos zur Sicherung zurückkehren. Natürlich können Sie auch ein hervorragendes und zuverlässiges Reparaturwerkzeug in Anspruch nehmen DataNumen Outlook Repair, die die beschädigte Outlook-Datei scannen und maximale Daten wiederherstellen kann.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich SQL-Wiederherstellung und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX