Thema Datum  Von Nutzer Rating
Antwort
Rot Email durch Abfrage der Zeile mit variablen Inhalten füllen
07.04.2022 10:41:03 Micha
NotSolved
07.04.2022 18:18:55 volti
NotSolved
08.04.2022 08:53:48 Micha
Solved

Ansicht des Beitrags:
Von:
Micha
Datum:
07.04.2022 10:41:03
Views:
170
Rating: Antwort:
  Ja
Thema:
Email durch Abfrage der Zeile mit variablen Inhalten füllen

Hallo zusammen,

ich habe mir schon einen Wolf gegoogelt und rumprobiert, aber ich bin halt ein totaler VBA Anfänger. Ich habe eine Exceltabelle, welche wie folgt aufegabut ist

A Status

B Namen

C Emailempfänger

D Titel einer Weiterbildung

E Email an TN versendet (Eintragung "Email an TN versendet")

F (Eintragung des Datums, an dem die Email versendet wird)

Und noch viele weitere Spalten, welche aber für das Problem nicht wichtig sind.

Zeile Status Namen Email Titel Mail verschickt Datum
1 Zertifikat fehlt max.mustermann max@mustermann.de VBA für Anfägner    
2 Zertifkat anfordern Heidi Test test@test.de Irgendwas lernen    

Ich bekomme schon hin, dass ich eine Mail immer aus Zeile 3 erstellen kann.

Ich möchte aber gerne eine Abfrage haben, welche Werte genutzt werden sollen. Beispielsweise möchte ich eine Email an Heidi test senden. Es soll ein Abfragefenster erscheinen, in dem ich eingeben kann, dass die Werte aus Zeile 2 für die Email genutzt werden soll. Vielleicht stelle ich mir das auch zu einfach vor oder es geht gar nicht.

Mein Code sieht aktuell so aus

Sub EmailManuellAbsenden()

Dim objOutlook As Object
Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With objMail
   .GetInspector
   .To = Range("B3")
   .Subject = "Ihr Antrag auf Förderung einer Weiterbildungsmaßnahme"
   .HTMLBody = "<font style=""font-family: Arial; font-size: 11pt;""> Hallo liebe Kollegin/lieber Kollege, <br><br> </font> " & _
           "<font style=""font-family: Arial; font-size: 11pt;"">wir haben den freigegebenen Antrag zur Förderung der Weiterbildung - </font>" & Range("E3") & "<font style=""font-family: Arial; font-size: 11pt;""> - erhalten. <br><br></font>" & _
           "<font style=""font-family: Arial; font-size: 11pt;"">Wir wünschen Ihnen viel Spaß bei der Teilnahme und bitten Sie daran zu denken, uns im Anschluss Ihre Teilnahmebescheinigung digital zukommen zu lassen. <br><br></font>" & _
           "<font style=""font-family: Arial; font-size: 11pt;"">Ihnen eine schöne Restwoche. </font>" & .HTMLBody & "</p>"
   .Display 'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!
        VBA.SendKeys "^{END}", True
Cells(3, 6) = "Email an TN versendet"
End With

End Sub

 

 


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 Email durch Abfrage der Zeile mit variablen Inhalten füllen
07.04.2022 10:41:03 Micha
NotSolved
07.04.2022 18:18:55 volti
NotSolved
08.04.2022 08:53:48 Micha
Solved