title image


Smiley Re: Serienmail mit Adressen in Excel-Liste und Anlage
Hi!



Code noch anpassen:



Sub Excel_Serienmail_via_Outlook_Senden()

Dim OutApp As Object, Mail As Object

Dim i As Integer

Dim Nachricht

For i = 1 To 10

'Variablen müssen bei jeder Schleife neu initalisiert werden

Set OutApp = CreateObject("Outlook.Application")

Set Nachricht = OutApp.CreateItem(0)

With Nachricht

.to = Cells(i, 1) 'Adresse

.Subject = Cells(i, 2) 'Betreffzeile

.Body = Cells(i, 3) 'Sendetext

'Hier wird die Mail gleich in den Postausgang gelegt

'und die Sicherheitsabfrage muss jedesmall bestätigt werden

'.Send

'Hier wird die Mail "angezeigt"

'aber gleich versendet,... OHNE Sicherheitsabrage

.Display

SendKeys "%s"

End With

'Variablen zurücksetzen sonst geht es nicht

Set OutApp = Nothing 'CreateObject("Outlook.Application")

Set Nachricht = Nothing 'OutApp.CreateItem(0)

'Application.Wait (Now + TimeValue("0:00:05"))

Next i

End Sub

Grüße

 

LXus

 

Win7 x64

Office 2013 x64



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: