HERBERS Excel-Forum - die Beispiele

Thema: Emailversand mit Outlook auf der Basis von Excel-Daten

Home

Gruppe

Extern

Problem

In einer Excel-Tabelle habe ich spaltenweise folgende Angaben: Email-Adressen, Dateinamen, Betreff, Text Wie kann ich auf Basis dieser Daten Outlook starten und die Emails mit den genannten Anlagen und Angaben in den entsprechenden Feldern versenden?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub Verteilen()
   Dim oOL As Object
   Dim oOLMsg As Object
   Dim oOLRecip As Object
   Dim oOLAttach As Object
   Dim iRow As Integer, iCounter As Integer
   Dim sFile As String, sRec As String, sSub As String
   Dim sBody As String
   Dim bln
   Application.ScreenUpdating = False
   Application.DisplayStatusBar = True
   bln = Application.DisplayStatusBar
   iRow = Cells(Rows.Count, 1).End(xlUp).Row
   Set oOL = CreateObject("Outlook.Application")
   For iCounter = 2 To iRow
      sRec = Cells(iCounter, 1)
      sFile = Cells(iCounter, 2)
      sSub = Cells(iCounter, 3)
      sBody = Cells(iCounter, 4)
      Application.StatusBar = "Sende Datei " & sFile & " an " & sRec & "..."
      Set oOLMsg = oOL.CreateItem(0)
      With oOLMsg
         Set oOLRecip = .Recipients.Add(sRec)
         .Subject = sSub
         .Body = sBody & vbLf & vbLf
         Set oOLAttach = .Attachments.Add(sFile)
        .Send
      End With
      oOLRecip.Resolve
   Next iCounter
   Set oOL = Nothing
   Application.StatusBar = False
   Application.DisplayStatusBar = bln
End Sub

Beiträge aus dem Excel-Forum zu den Themen Extern und Email

Excel Makro zum Email Versand aus Vorlagen-Excel Screenshot als Emailanhang
Fehler im VBA-Code - Excel per Email verschicken? Brauche Hilfe ! Copy Paste und Email Makro
Dateiname externer Datei ändern Tabelle per Email- Versand unterbrechen
Tabellenblatt aus externer Exceldatei kopieren ConboBox mit externe Daten füllen
Email automatisch aus Excel versenden Email in Excel
Wert in externer Datei suchen Bei erreichen eines best. Datums Email schicken
Aufruf externer Programme Bei erreichen eines best. Datums Email schicken
hyperlink als email mit betreff und cc aus spalte Externe Bezüge auslesen mit VBA
Externe Verküpfung anpassen Tabelle teilen und dann per email versenden
Spalte mit email Adressen auslesen Pivot mit Externer DB am Limit?
Outlook Email in Excel einlesen HTML-eMailversand
Commandbutton mit Emailaddi belegen Externe Verknüpfungen
Blätter in Externer Arbeitsmappe einblenden Tabellenblatt versenden, Email Text
externes Verzeichnis ansprechen Externe Datenquelle via VBA
Pivot mit Externer DB UNION funzt nich Nur externe Bezüge rausnehmen
*xlt-Dateien als externe Datenquelle nutzen Externes Programm öffnen
Aus Excel eine EMail generieren und senden Tabellenblatt per Email versenden
Makro: Bezug auf externes xls-File? Wert an externes Programm übergeben
Externe Excel-Verknüpfungen automatisiert ändern Verlinkung externer Arbeitsmappen
Tabelle in externer Datei löschen externe Bezüge suchen/ersetzen
neue Zeile und externe Bezüge.... Email versenden ! Mails gehen nicht immer raus ?
Externe Verknüpfung finden Exceltabelle per eMail senden
externe Bezüge Summenprodukt + Externe Bezüge
Datenbank in externer Datei Fehler beim Kopieren von externer Tabelle
Email an in Zelle muss weg eMail