? Mit VBA Outlook-Nachricht öffnen ...
09.05.2022 13:46:52
Micha
In der Hoffnung, dass mir hier geholfen werden kann eine kleine Anfrage. Für hilfreiche Antworten schon jetzt herzlichen Dank.
Was möchte ich machen:
In einem Tabellenblatt habe ich einen Button (Textfeld mit VBA-Code verbunden). Beim Link auf diesen Button soll Outlook geöffnet und die aktuelle Excel-Datei als Anlage angehängt werden. Zudem sollen folgende Informationen in der Mail vorausgefüllt werden:
a) Empfänger der Mail
b) Betreff der Mail
c) Text der Mail
Insgesamt gibt es mehrere Tabellenblätter, jeweils mit Buttons. Je nachdem, in welchem Tabellenblatt der Button gedrückt wird, gehen die Mails an verschiedene Empfänger.
Für a) und b) habe ich bereits an anderer Stelle eine Lösung gefunden:
Sub Mappe_per_Email_verschicken()
Application.Dialogs(xlDialogSendMail).Show "jemand@irgendwo", "Betreff"
End Sub
Der Text soll z.B. so aussehen (d.h. mit definierten Zeilenumbrüchen):
Achtung:
Dieser Nachricht müssen vor dem Versand als weitere Anlagen noch beigefügt werden:
- Vorlage xy als PDF-Datei
- Vorlage yz als PDF-Datei
- ...
Auf makro-excel.de habe ich noch etwas anderes gefunden:
Sub EmailManuellAbsenden()
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = deinname@deinedomain.de
.Subject = "Betreff"
.Body = "Ihre Nachricht."
.Display 'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!
End With
End Sub
- wie man die Excel-Datei, aus der heraus man die Mail generieren will, anhängen kann
- wie man den Text mit Zeilenumbrüche gestalten kann (siehe oben)
Kann hier jemand helfen?
Gibt es vielleicht noch eine ganz andere, bessere, Möglichkeit?
Vielen Dank
Micha