Outlook lässt mich nicht mehrere Entwürfe gleichzeitig senden. Gibt es eine einfache Möglichkeit, mehrere Entwürfe gleichzeitig in Outlook zu senden? ohne jeden einzeln öffnen zu müssen?So senden Sie mehrere Entwürfe aus Outlook 2003
Von was ich gelesen, gesehen und versucht habe; Dies ist nicht möglich in Outlook selbst, und daher wäre eine Programmierlösung erforderlich, wahrscheinlich einige VB-Skript
ok, fand ich ein bisschen VB, die es tut:
`Public Sub SendDrafts()
Dim lDraftItem As Long
Dim myOutlook As Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myFolders As Outlook.Folders
Dim myDraftsFolder As Outlook.MAPIFolder
'Send all items in the "Drafts" folder that have a "To" address filled
'in.
'Setup Outlook
Set myOutlook = Outlook.Application
Set myNameSpace = myOutlook.GetNamespace("MAPI")
Set myFolders = myNameSpace.Folders
'Set Draft Folder. This will need modification based on where it's
'being run.
Set myDraftsFolder = myFolders("$MAILBOX").Folders("$DRAFTS")
'Loop through all Draft Items
For lDraftItem = myDraftsFolder.Items.Count To 1 Step -1
'Check for "To" address and only send if "To" is filled in.
If Len(Trim(myDraftsFolder.Items.Item(lDraftItem).To)) > 0 Then
'Send Item
myDraftsFolder.Items.Item(lDraftItem).Send
End If
Next lDraftItem
'Clean-up
Set myDraftsFolder = Nothing
Set myNameSpace = Nothing
Set myOutlook = Nothing
End Sub
nur $ MAILBOX mit Ihrer Mailbox Namen und $ DRAFTS mit dem Namen Ihres Entwurfsordner ersetzen. Dies wurde persönlich getestet und scheint gut zu funktionieren.
Ja, Sie können ein Makro oder Add-In dazu schreiben.
nicht sehr verschieden von Autor Antwort, aber immer noch:
Sub SendDrafts()
Dim ns As NameSpace
Dim drafts As MAPIFolder
Dim Item As MailItem
Set ns = Application.GetNamespace("MAPI")
Set drafts = ns.GetDefaultFolder(olFolderDrafts) ' 16
For Each Item In drafts.Items
'Item.Send
Next
End Sub
Bitte seien Sie vorsichtig, wie es wirklich alle E-Mails in Ihrem Standard-Entwurf-Ordner sendet. Nach dem Auskommentieren der Sendeleitung. Dim Zeilen für die automatische Vervollständigung im Outlook-Makro-Editor.
Eine nützliche Version, die ich in Outlook nur getestet: 2000
Ziehen Sie die E-Mails Sie in den Postausgang senden möchten. Sie werden nicht automatisch gesendet werden, aber mit dieser Version des Standes der Buchung sendet sie:
Sub SendOutbox()
Dim ns As NameSpace
Dim outbox As MAPIFolder
Dim Item As MailItem
Set ns = Application.GetNamespace("MAPI")
Set outbox = ns.GetDefaultFolder(olFolderOutbox) ' 16
For Each Item In outbox.Items
Item.Send
Next
End Sub
Auf diese Weise können Sie selektiv sein.
+1 schließen, nicht im Zusammenhang mit der Programmierung. – UnkwnTech
Ich würde sagen, es ist, weil es nicht möglich ist, dies über Outlook selbst zu tun. Eine Programmierlösung ist die einzige Möglichkeit, dies zu lösen. – spence91
@spence - Dann müssen Sie angeben, dass Sie eine programmatische Lösung für das Problem innerhalb des Körpers Ihrer Frage suchen. Im Moment klingt es so, als ob Sie wissen möchten, ob jemand eine Anleitung für Outlook bereitstellen kann. –