Mailversand aus aktive Zeile
17.02.2020 22:08:23
Alex
Ich habe einen Code in einem Modul. Bei Klick generiert er eine Mail:
Empfänger steht in B3
Betreff steht in C3
Body steht in AK3 (Diese Zelle enthält eine Formel die den Inhalt mehrer Zellen verkettet. Es soll nicht die Formel sondern das Ergebnis versendet werden)
Das funktioniert auch gut.
Nun habe ich aber eine Tabelle mit ca. 400 Zeilen. Hier jedes Mal den Code auf einen separaten Button zu legen macht natürlich wenig Sinn.
Was ich gerne hätte:
Einen Button, der bei Klick nur aus der aktiven Zeile die Zellen aus Spalte 2,3 und 37 für Empfänger, Betreff und Body verwendet.
Ich hoffe ich hab es einigermaßen verständlich erklärt.
Vielen Dank im Voraus und Gruß
Alex
Nachfolgend mein derzeitiger Code
Sub SendMailWithOutlook()
Dim OutApp As Object
Dim OutMail As Object
If InStr(Range("B3").Value, "@")