Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1460to1464
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
Inhaltsverzeichnis

Serienmail mit VBA

Serienmail mit VBA
23.11.2015 14:15:01
Zsuzsanna
Hallo,
ich brauche eine kleine Hilfe von euch. Ich versuche grade über meinem 2. Email-Account einen Serienemail mit VBA zu verschicken. Es klappt aber nicht wirklich. Die Emails werden zwar mit der eingegebene Account verschickt (zumindest steht als Absender der Email-Adresse des 2. Accounts), aber die Objekte laden in meinem 1. Account- Hauptmailbox (unter gesendete Objekte). Wie kann ich es im Makro mitgeben, das die Objekte auch in die richtige Ordner abgelegt werden?
Ich danke euch vielmals!
Mfg,
Zsuzsanna
Sub AnlagenMailen()
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, sRec As String, s

Sub As String
Dim sBody As String
Dim bln, S
Application.ScreenUpdating = False
iRow = Cells(Rows.Count, 1).End(xlUp).Row
Set oOL = CreateObject("Outlook.Application")
For iCounter = 2 To iRow
sRec = Cells(iCounter, 9) 'An
sFile = Split(Cells(iCounter, 12), ";") 'Anlage
s

Sub = Cells(iCounter, 11) 'Betreff
sBody = Cells(iCounter, 13) 'Text
Set oOLMsg = oOL.CreateItem(0)
With oOLMsg
Set oOLRecip = .Recipients.Add(sRec)
.Subject = sSub
.Body = sBody & vbLf & vbLf
For S = 0 To UBound(sFile)
.Attachments.Add sFile(S)
Next S
'.display
.SentOnBehalfOfName = "Adresse 2. Account"
.Send
End With
oOLRecip.Resolve
Next iCounter
Set oOL = Nothing
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige