Einen schönen Gruss ins Forum :-)

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:

Eine Datei enthält mehrere Tabellenblätter. 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

Kann mir jemand verraten, wie ich in diesen Code noch einen vordefinierten Nachrichtentext einfügen kann?

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

Bei dieser Lösung verstehe ich nun nicht,

- 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