Archive for Dezember, 2008

Kletter und Wanderausflug am Christtag

Donnerstag, Dezember 25th, 2008

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

Excel Marko – Serienmails

Dienstag, Dezember 2nd, 2008

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 Nachricht

For 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