Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Über Excel eine E-Mail verschicken

Betrifft: Über Excel eine E-Mail verschicken von: Thomas
Geschrieben am: 18.10.2020 14:47:48

Hallo zusammen,

ich würde gerne in Excel (per Tastenklick eine E-Mail per Outlook verschicken). Habe bereits im Forum gesucht aber nicht etwas genau passendes gefunden.

Ich habe mal etwas ähnliches gefunden dort waren aber alle Informationen für die E-Mail als Strings festgesetzt.

Jetzt ist es so das sich Informationen wie E-Mail Adresse,Kopfzeile, E-Mail Haupttext in den einzelnen Excel Zeilen befinden und dadurch ändern können.

z.B.:

Ihr Auftrag: (Excel Zelle A2)

Sehr geehrter Herr (B2),

Ihr Paket mit der Bestellnummer (C2)...

Bin für jede Hilfe dankbar :D

Mit freundlichen Grüßen

Thomas

Betrifft: AW: Über Excel eine E-Mail verschicken
von: Hajo_Zi
Geschrieben am: 18.10.2020 14:53:19

Hallo Thomas,

schaue auf diese Seite
http://excel-inn.de/vba_beispiele.htm
und suche nach Mail

GrußformelHomepage

Betrifft: AW: Über Excel eine E-Mail verschicken
von: Thomas
Geschrieben am: 18.10.2020 15:31:02

Vielen Dank Hajo ich glaub ich könnte mir eine Lösung zusammenbasteln :D

Betrifft: AW: Über Excel eine E-Mail verschicken
von: Thomas
Geschrieben am: 18.10.2020 15:31:04

Vielen Dank Hajo ich glaub ich könnte mir eine Lösung zusammenbasteln :D

Betrifft: AW: Über Excel eine E-Mail verschicken
von: volti
Geschrieben am: 18.10.2020 15:20:44

Hallo Thomas,

hier ein Muster als Anregung, wie Du das machen könntest. Den Part mit der Anlage kannst Du ja weglassen, wenn nicht gewünscht.

Code:
[Cc][+][-]
 
Option Explicit Sub eMail_senden() ' HTML eMail versenden Dim WSh As Worksheet Dim sFilename As String Set WSh = ThisWorkbook.Sheets("Tabelle3") 'Jetzt die eMail senden (HTML) With CreateObject("Outlook.Application").CreateItem(0) .BodyFormat = 2 'HTML-Format, Angabe optional .To = WSh.Range("A1").Value 'Empfänger in z.B. A1 .Subject = "Ihr Auftrag: " & WSh.Range("A2").Value 'Betreff .GetInspector .HTMLBody = "<span style='font-family:Arial; font-size:10pt;color:#000000'>" _ & "Sehr geehrter Herr " & WSh.Range("B2").Value & ",<br><br>" _ & "Ihr Paket mit der Bestellnummer " & WSh.Range("C2").Value _ & " ist da!<br><br>" _ & "Mit freundlichen Grüßen<br>Thomas<br></span>" _ & .HTMLBody 'Nachricht incl. Signatur 'Dateianhang If sFilename <> "" Then 'Anhang dran, wenn vorhanden If Dir$(sFilename) <> "" Then .Attachments.Add sFilename End If .Display 'eMail anzeigen MsgBox "Bitte jetzt die Mail absenden!", vbExclamation, "Mail senden" End With End Sub
 
____________________
viele Grüße aus Freigericht
Karl-Heinz


Betrifft: AW: Über Excel eine E-Mail verschicken
von: Thomas
Geschrieben am: 18.10.2020 15:30:04

Vielen Dank Karl das hilft mir sehr weiter :D