Zweiten Anhang an Mail per Macro anhängen

Forumthread: Zweiten Anhang an Mail per Macro anhängen
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Zweiten Anhang an Mail per Macro anhängen

16.12.2024 16:42:35

Klaudius

Hallo

ich möchte zweiten PDF Anhang an Mail anhängen / gleiche Datei anderer Sheetname _ Ist sicherlich für Euch total simpel mich überfordert es vollends. Herzlichen Dank für Eure Unterstützung

Sub mail()
Dim sDatei As String

sDatei = ThisWorkbook.Path & "\DP_Aenderung.pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sDatei, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

With CreateObject("Outlook.Application").CreateItem(0)
.To = Sheets("Stationscockpit").Range("S1")
.Subject = Sheets("Stationscockpit").Range("E1")
.body = ""
.Attachments.Add sDatei
.Display
'.Send
If Dir$(sDatei) > "" Then Kill sDatei
End With
End Sub

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zweiten Anhang an Mail per Macro anhängen

16.12.2024 17:39:15

peter
AW: Zweiten Anhang an Mail per Macro anhängen

16.12.2024 20:21:22

snb

AW: Zweiten Anhang an Mail per Macro anhängen

16.12.2024 17:39:15

peter

Hallo

Ungetestet



Sub mail()

Dim sDatei As String

Dim xDatei As String



sDatei = ThisWorkbook.Path & "\DP_Aenderung.pdf"

xDatei = ThisWorkbook.Path & "\DP_Aenderung_2.pdf"



ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sDatei, _

Quality:=xlQualityStandard, IncludeDocProperties:=False, _

IgnorePrintAreas:=False, OpenAfterPublish:=False



Worksheet("WieImmerEsAuchHeisst").ExportAsFixedFormat Type:=xlTypePDF, Filename:=xDatei, _

Quality:=xlQualityStandard, IncludeDocProperties:=False, _

IgnorePrintAreas:=False, OpenAfterPublish:=False



With CreateObject("Outlook.Application").CreateItem(0)

.To = Sheets("Stationscockpit").Range("S1")

.Subject = Sheets("Stationscockpit").Range("E1")

.body = ""

.Attachments.Add sDatei

.Attachments.Add xDatei

.Display

'.Send

If Dir$(sDatei) > "" Then Kill sDatei

If Dir$(xDatei) > "" Then Kill xDatei

End With

End Sub

Peter

AW: Zweiten Anhang an Mail per Macro anhängen

16.12.2024 20:21:22

snb

Lesbarkeits willen:

Sub M_snb()

  ActiveSheet.ExportAsFixedFormat 0, ThisWorkbook.Path & "\DP_Aenderung.pdf"

  Sheets("WieImmerEsAuchHeisst").ExportAsFixedFormat 0, ThisWorkbook.Path & "\DP_Aenderung_2.pdf"

    

    With CreateObject("Outlook.Application").CreateItem(0)

        .To = Sheets("Stationscockpit").Range("S1")

        .Subject = Sheets("Stationscockpit").Range("E1")

        .Attachments.Add ThisWorkbook.Path & "\DP_Aenderung.pdf"

        .Attachments.Add ThisWorkbook.Path & "\DP_Aenderung_2.pdf"

        .send

    End With

    

    Kill ThisWorkbook.Path & "\DP_Aenderung*.pdf"

End Sub