Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
744to748
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Email aus Excel senden mit Outlook

Email aus Excel senden mit Outlook
15.03.2006 15:25:03
Karin
Hallo,
ich bin ein vba anfänger und habe folgendes Problem:
ich würde gern aus einer excel datei eine Email mit Outlook generieren, wobei die Emailadressen aus Zellen der Datei gelesen werden, der Text aus einer Zelle gelesen wird und bei der noch ein Tabellenblatt aus der Excel Datei angehängt wird.
Ich hoffe das ist soweit verständlich und es kann mir dabei jemand helfen!
Vielen Dank im voraus.
Glg karin

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Email aus Excel senden mit Outlook
15.03.2006 15:40:09
Gustav
Hallo probier mal folgenden Code:

Sub Mail()
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, s


Sub 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)
s


Sub = 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



Jetzt nußt Du nur noch in Tabelle 1 folgende Spalten mit Leben füllen:

Spalte A:            Mailempfänger

Spalte B:            Dateiname incl. Pfad

Spalte C:            Betreffzeile

Spalte D:            Text

Viel Erfolg!

Gustav
Anzeige

302 Forumthreads zu ähnlichen Themen

Automatisierter Email Versand xls vba
Christian

Hallo an alle Experten,
ich habe ein größeres Problem bezüglich des Versands von Woksheets als email Anhang und bräuchte dringend Hilfe.
Die Situation ist folgende:
Ich hab in verschiedenen Verzeichnissen(Ordnern) Excel WB (=Berichte/Reports) erzeugt, die jeweils nur aus einem She...
09.08.2008 11:00:00
Thread-ID: 1000468
6 Beiträge
Anzeige
Outlook Email einlesen/löschen
Peter

Ich bin zwar in der Lage Emails von Excel/VBA via Outlook abzusenden.
Jetzt würde ich jedoch gerne via VBA/Excel Emails einlesen, den Header der eingehenden Email auslesen und danach die Email wieder löschen.
Danke für die Unterstützung.
Grüße
Peter
29.08.2008 15:07:44
Thread-ID: 1005850
3 Beiträge
Email versenden Outlook - Problem
Peter

Ich versende via Excel/VBA alle 3 Minuten ein Email.
Nun kommt es ca. 1x am Tag vor, dass Outlook Emails nicht sofort sendet und sich die Emails im Postausgang sammeln bis ich Outlook schließe und wieder öffne.
Danke für die Unterstützung.
Grüße
Peter
29.09.2008 13:58:00
Thread-ID: 1013103
2 Beiträge
Anzeige
Outlook-Mail aus Excel - Statusabfrage
Peter

Hallo,
aus Excel generiere ich Mail-Items mit nachfolgendem Code. Versendet werden diese durch manuelles Betätigen des "Senden"-Buttons. Gibt es eine Art Return-Code? Kann abgefragt werden, ob der "Senden"-"Button gedrückt wurde oder ob das Item ohne Senden geschlossen wurde?
Set MyOutA...
04.12.2008 14:07:27
Thread-ID: 1030167
6 Beiträge
Email über Outlook, Konto ändern
Nico

Hallo!
Ich schicke eine Email über ExcelVBA mit Outlook und dem Standardkonto.
Gibt es eine Möglichkeit die Email nicht über das Standardemailkonto zu verschicken, sondern über ein anderes Konto?
Wie kann ich das Konto vorher festlegen?
Sub EmailVerschickenKINDERSKIKURS() Dim...
16.12.2008 20:16:33
Thread-ID: 1033418
2 Beiträge
eMail aus Outlook in Excel einlesen
Heinzs

Hallo,
ich möchte eine in Outlook in einem bestimmten Ordner angekommene eMail in Excel weiterverarbeiten, d.h. wenn bestimmter Absender und bestimmter Betreff in bestimmten Ordner und bestimmtes Empfangsdatum vorliegt dann soll der Emailbody in die Exceltabelle ans Ende angefügt werden.
21.01.2009 15:36:17
Thread-ID: 1042242
3 Beiträge
Email aus Excel via Outlook Web Access
Sven

Hallo,
wir haben in der Firma ein kleines Makro das über Outlook 2003 Emails aus Excel versendet. Nun taucht das Problem auf, dass einige Rechner (auf die mehrere user zugreifen) nicht über ein echtes Outlook verfügen sondern Outlook Web Access (OWA) verwenden müssen.
Hier klappt aber d...
06.03.2009 14:58:24
Thread-ID: 1057341
5 Beiträge
Serienmail Outlook
Ilka

Hallo,
ich bräuchte mal wieder eure Hilfe. Ich möchte an einen bestimmten Personenkreis eine Art Serienmail verschicken, zu der jeder einen individuellen Datei-Anhang erhalten soll.
D. h. bei Herrn Müller soll der Anhang A, bei Frau Mayer Anhang B und bei Herr Schmitt Anhang C automati...
27.04.2009 08:15:33
Thread-ID: 1071278
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
2
1
2
5
1
2
4
2
1
2
6
2
1
1
5
8
2
5
2
4
1
1
1