Herbers Excel/VBA-Archiv

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

Über Excel eine E-Mail verschicken

• Über Excel eine E-Mail verschicken von Thomas vom 18.10.2020 14:47:48
• AW: Über Excel eine E-Mail verschicken - von Hajo_Zi am 18.10.2020 14:53:19
  • AW: Über Excel eine E-Mail verschicken - von Thomas am 18.10.2020 15:31:02
  • AW: Über Excel eine E-Mail verschicken - von Thomas am 18.10.2020 15:31:04
• AW: Über Excel eine E-Mail verschicken - von volti am 18.10.2020 15:20:44
  • AW: Über Excel eine E-Mail verschicken - von Thomas am 18.10.2020 15:30:04

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

  

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
 

  

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