Office: (Office 2019) Einsatzpläne per Mail verschicken

Moin Excel Profis,
Ich habe mit VBA Erstellung nicht viel am Hut, deswegen meine Frage an euch.
Ich habe einen Code, wo per Doppelklick die Schichtpläne per Seriendruck ausgedruckt werden.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lngRow As Long, lngLast As Long
If Target.Address <> "$A$3:$E$3" Then Exit Sub
Cancel = True
lngLast = Range("G" & Rows.Count).End(xlUp).Row
If vbOK = MsgBox("Wollen Sie die " & (lngLast - 1) & " Einsatzpläne drucken?", _
vbOKCancel, "Einsatzpläne: ALLE Drucken") Then
For lngRow = 1 To lngLast
Target = Cells(lngRow, 7)
PrintOut From:=1, To:=1, Copies:=1
Next lngRow
End If
End Sub

Gibt es die Möglichkeit, wenn bei dem jeweiligen Fahrer eine Mail Adresse hinterlegt ist, das er sie per Mail bekommt und sie nicht ausgedruckt wird?

Vielen dank für die Mühe.

Mfg Jens

 

Hallo Jens,

https://excel-inn.de/dateien/vba_beispiele/email_versenden.zip

 

Moin,
leider bekomme ich auf der Arbeit diesen Link nicht geöffnet.
Gibt es andere Optionen?.
Ich habe es mir geschickt, aber wir können keine .xslm Dateien empfangen.
MFG Jens

 

Moin Jens,
aktuell habe ich ein Projekt in Arbeit, das letztlich egal was aus XL heraus druckt, in PDFs konvertiert oder per E-Mail verschickt - genannt theDistributor. Falls Dich das interessiert, mach bitte Deine Thema auf den VBAsteleien.de auf. Dann können wir es dort gerne gemeinsam weiterentwickeln.
Grüße

 

@Jens Schau doch mal hier
Friedliebende Grüße

 

Moin,
ich habe mich da mal angemeldet.
@d`r Bastler
Vielen Dank