Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.10.2025 15:11:16
Differenz errechnen zum Vortag aus anderem Tabellenblatt
24.10.2025 11:47:33
Shape auf 1 cm und in Zelle zentriert. Code kürzen
24.10.2025 09:22:50
Filter aktualisieren bei Blattaufruf
24.10.2025 09:06:52
Zählenwenn
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1788to1792
1788to1792
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Über Excel eine E-Mail verschicken

Forumthread: Über Excel eine E-Mail verschicken

Über Excel eine E-Mail verschicken
18.10.2020 14:47:48
Thomas
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
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Über Excel eine E-Mail verschicken
18.10.2020 15:31:02
Thomas
Vielen Dank Hajo ich glaub ich könnte mir eine Lösung zusammenbasteln :D
AW: Über Excel eine E-Mail verschicken
18.10.2020 15:31:04
Thomas
Vielen Dank Hajo ich glaub ich könnte mir eine Lösung zusammenbasteln :D
Anzeige
AW: Über Excel eine E-Mail verschicken
18.10.2020 15:20:44
volti
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

Anzeige
AW: Über Excel eine E-Mail verschicken
18.10.2020 15:30:04
Thomas
Vielen Dank Karl das hilft mir sehr weiter :D
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige