Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1904to1908
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Gefilterte Liste per Outlook versenden

Gefilterte Liste per Outlook versenden
17.11.2022 13:52:48
Wolfgang
Hallo, liebe Excellenzen !
Ich bitte um Unterstützung bei folgendem Projekt :
Ich möchte aus einer Excel-Arbeitsmappe heraus per Outlook-Mail eine "Ladungsübersicht" als Ausgangskontrolle an unsere LKW-Spediteure versenden.
In einer Excel-Arbeitsmappe werden im Blatt „Ausgangskontrolle“ LKW-Transporte aufgelistet.
Spalte A = Spediteur-Name/Spalte B = eintreffend bis Datum/Spalte C = Bestimmungsort.
In einem zweiten Blatt „Stammdaten“ in derselben Arbeitsmappe stehen die Mailadressen der Spediteure.
Spalte A = Spediteur-Name/Spalte B = Mailadresse vom Spediteur
Ich möchte jetzt täglich per automatisierter Outlook-Mail eine Ladungsübersicht versenden. Dabei soll jeder Spediteur nur „seine“ Transporte gemeldet bekommen.
Dazu soll das Blatt „Ausgangskontrolle“ nacheinander nach den einzelnen Spediteuren gefiltert und die dazugehörigen gefilterten Zeilen jeweils an die Mailadresse versendet werden, die neben dem Spediteursnamen im Blatt „Stammdaten“ aufgeführt ist.
Eine vereinfachte Beispieldatei habe ich beigefügt und freue mich auf Tipps und Lösungsvorschläge.
Liebe Grüße und Danke
Wolfgang
https://www.herber.de/bbs/user/156235.xlsx

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gefilterte Liste per Outlook versenden
17.11.2022 16:31:28
Fennek
Hallo,
da fehlt noch der richtige Paste-Befehl:

Sub F_en()
Dim Form As New DataObject
Sheets("Ausgangskontrolle").Activate
For i = 2 To Sheets("StammDaten").Cells(Rows.Count, 1).End(xlUp).Row
With Range("A1").CurrentRegion
.AutoFilter 1, Sheets("StammDaten").Cells(i, 1)
.Copy
End With
Form.GetFromClipboard
Debug.Print Form.GetText
With CreateObject("Outlook.Application")
With .CreateItem(0)
.to = Sheets("StammDaten").Cells(i, 2)
.htmlbody = Form.GetText()
.display
End With
End With
Next i
ActiveSheet.AutoFilter.ShowAllData
End Sub
mfg
AW: Gefilterte Liste per Outlook versenden
17.11.2022 17:54:58
Fennek
Wenn man sieht, dass Outlook und Word fast dasselbe sind, geht auch (in Outlook getestet):

'in Excel ein Range kopiert
Sub Body_Paste()
'kopiert Zellen formatiert aus Excel
Dim EML As MailItem, Doc
Set EML = CreateItem(0)
Set Doc = EML.GetInspector.WordEditor
Doc.Paragraphs(1).Range.PasteAndFormat wdFormatOriginalFormatting
EML.Display
End Sub

Anzeige
AW: Gefilterte Liste per Outlook versenden
18.11.2022 11:55:25
Wolfgang
Hallo Fennek !
Das sieht sehr gut aus und wird mir sicher sehr weiterhelfen.
Ich danke Dir vielmals für Deine Mühe und wünsche ein schönes Wochenende !
LG
Wolfgang

252 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige