Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
388to392
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
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mails versenden mit Anhang

Mails versenden mit Anhang
01.03.2004 19:53:02
Sebastian
Hallo Forumsmitglieder,
vielleicht kann mir einer von Euch einen Tipp geben, wie ich aus Excel heraus über ein Makro Outlook zum Versenden von Mails benutzen kann:
Die Tabelle hat den folgenden Aufbau
A1 Empfänger (z.B. max.mustermann@web.de)
B1 Kundennummer (z.B. 12345678
C1 Dateipfad (z.B. c:\12345678.zip)
A2 gaby.musterfrau@gmx.net
B2 98499494
C3 C:\98499494.zip
usw.
Das Makro soll den Text "bla bla bla" und den in Spalte C referenzierten Anhang an den Empfänger mit der Email aus Spalte A versenden, wenn die in Spalte C genannte Datei die Kundennummer aus Spalte B enthält.
Wenn der in Spalte C referenzierte Dateiname nicht die in Spalte B genannte Kundennummer enthält (dann steht dort aufgrund eines Verweises C:/.zip), soll der Text "Dings Bums Dings" ohne einen Dateianhang verschickt werden.
Würde mich freuen, wenn mir hierbei jemand von Ecuh helfen könnte.
Gruss
Sebastian

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mails versenden mit Anhang
02.03.2004 11:38:35
Maurice
Versuch es mal hiermit

Sub Schick()
Dim betreff, inhalt, empfaenger, kopieempfaenger, anhang As String
Dim olApp As Object
Dim oItem As Object
Dim myAttachment As Object
Dim i As Long
i = 1
Do While Cells(i, 1) <> ""
empfaenger = Cells(i, 1)
betreff = "Automatisch verschickte Mail"
inhalt = "BLA BLA BLA"
anhang = Cells(i, 3)
Set olApp = CreateObject("Outlook.Application")
Set oItem = olApp.CreateItem(0)
Set myAttachment = oItem.Attachments
If Not anhang = "" Then myAttachment.Add anhang Else inhalt = "Dings Bums"
With oItem
.Subject = betreff
.To = empfaenger
.Body = inhalt
.Send
End With
i = i + 1
Loop
End Sub

Anzeige
AW: Mails versenden mit Anhang
04.03.2004 19:35:11
Sebastian
Vielen Dank für den Hinweis, das funktioniert perfekt!
Unglaublich, wie einfach das anscheinend gehen kann...
Besten Dank für den Super-Tipp
Sebastian

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige