| tux-buster.com |
| … der Blog von Tschetschonig Robert … |
Das Schneetreiben und das winterliche Wetter hat mich am heutigen Christtag irgendwie dazu motiviert eine Runde am Klettersteig zu gehen und eine kleine Wanderung im Wald zu machen!
Wie immer hab ich ein paar Bilder gemacht die im Anschluss folgen.
Ich wünsche allen eine schöne Weihnachtszeit und einen guten Rutsch ins neue Jahr 2009!
lg Robert
Hier ein kleines Excel Marko um aus einer Mail – Adressliste direkt aus Excel über Outlook Serienmails zu verschicken.
Das Beispiel ist nur für 5 Mailadressen geschrieben. Kann aber beliebig erweitert werden.
Sub Excel_Mail_Outlook()
Dim OutApp As Object, Mail As Object
Dim i As Integer
Dim NachrichtFor i = 1 To 5 ‚Anzahl der Mailadressen in Schreife einbauen
‚Variablen neu deklarieren
Set OutApp = CreateObject(„Outlook.Application“)
Set Nachricht = OutApp.CreateItem(0)With Nachricht
.To = Cells(i, 1) ‚Mail-Adresse
.Subject = Cells(1, 2) ‚Betreff
.Body = Cells(1, 3) ‚Sendetext
.Display
SendKeys „%s“, True
End With‚Variablen zurücksetzen
Set OutApp = Nothing
Set Nachricht = Nothing
Application.Wait (Now + TimeValue(„0:00:05“))
Next i
End Sub