Thema Datum  Von Nutzer Rating
Antwort
Rot Mit VBA Outlook-Nachricht öffnen und Teile der Mail vorbefüllen
09.05.2022 13:20:35 Micha
Solved

Ansicht des Beitrags:
Von:
Micha
Datum:
09.05.2022 13:20:35
Views:
15
Rating: Antwort:
 Nein
Thema:
Mit VBA Outlook-Nachricht öffnen und Teile der Mail vorbefüllen

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Mit VBA Outlook-Nachricht öffnen und Teile der Mail vorbefüllen
09.05.2022 13:20:35 Micha
Solved