eMail aus Excel generieren
18.02.2024 10:22:37
tobi
ich sitze hier vor einem Problemchen bei dem sicher hier jemand eine Hilfsstellung geben kann.
Ist eigentlich wirklich nur ein Schönheitsproblem :-)
Ich leite ein privates Bundesliga-Tippspiel und habe es mir mit dem unten aufgeführten Makro etwas leichter gemacht an alle Mitspieler die Auswertung zu mailen.
Das Makro macht aus einem Tabellenblatt in der Excel-Datei ein PDF und mailt es dann per Outlook an alle Mitspieler.
Meine eMail-Adresse heißt z.B. muster@muster.de
Wenn ich direkt aus Outlook heraus maile erscheint bei den Mitgliedern in Outlook der hinterlegte Name für meine Adresse...also etwa Bundesliga-Auswertung 2024.
Wenn ich mein Makro benutze...dann steht da nur die Adresse...also muster@muster.de.
Wie muss ich mein Makro abändern dass auch der Accountname benutzt wird.
Vielen Dank schon einmal im Voraus...
tobi
Sub ExcelDateiSendenZuhause()
Dim Nachricht As Object
Dim Account As Object
Dim OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
'Aktive Arbeitsmappe wird als Mail gesendet
AWS = "a:\bundesliga 2023-2024\" & "TEST - BuLi" & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=AWS, quality:=xlQualityStandard, ignoreprintareas:=False
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.SentOnBehalfOfName = "muster@muster.de"
.BCC = Join(WorksheetFunction.Transpose(Tabelle4.Range("c1:c80")), ";")
.Subject = "Bundesliga-Tippspiel - Aktuelle Auswertung XX.Spieltag"
.attachments.Add AWS
.Body = "Hallo zusammen," & vbCrLf & vbCrLf & "als Anlage die aktuelle Auswertung." & vbCrLf & vbCrLf & "..." & vbCrLf & "tobi"
End With
For Each Account In OutApp.session.accounts
If Account.DisplayName = "muster@muster.de" Then
Set Nachricht.SendUsingAccount = Account
'Hier wird die Mail nochmals angezeigt
Nachricht.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'Nachricht.Send
End If
Next
'Outlook schliessen
'OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub