Office: (Office 2013) Mail per Makro an diverse Empfänger

Hallo Excel Spezi`s

bin neu hier. Versuche aus einem Excelshit diverse Empfänger zu benachrichtigen so bald die Datei geöffnet wird und ein bestimmtes Datum erreicht wird. Die Mailadresse sind mit Hyberlink hinterlegt. Das Mail sollte aber nur einmal versendet werden. So "weit" bin ich bis jetzt gekommen:

Option Explicit
' ***den Code in ein Modul !!!***
' ***gegebenenfalls Verweis auf Outlook setzen!!!***

Sub auto_open()

Dim OutApp As Object
Dim EmailText As String
Dim rZelle As Range

' überwacht jetzt als Beispiel die Zellen von I1:I10
' in Spalte H (8) steht im Beispiel der Terminbetreff

For Each rZelle In Range("K2:K2") ' gegebenenfalls anpassen
If rZelle.Value <= "1.02.2016" Then ' gegebenenfalls Zahl (3 Werktage) auch anpassen

Set OutApp = CreateObject("Outlook.Application")
With OutApp.CreateItem(0)
'Empfänger
.To = "name.ame@zuerich.ch" ' Mailadresse anpassen
'Betreff
.Subject = "Deine Zertifikate laufen ab!!!!"
'Nachricht Cells(rZelle.Row, 8) -> hier wird automatisch der Terminbetreff eingetragen
.Body = "Deine Zertifikate laufen in 10 Tagen ab gleich erneuern!" & vbCrLf & vbCrLf & _
"Unter diesstem Link können sie erneuert werden https://certrenewal.ssl.xxx.xx/CertificateRenewalWizard/ Unter diesem Link findest Du auch eine Anleitung https://stpnet.intra.xx.xx/intranet/xxxx/xxxxx/home/abt/li/id/Erneuern_Zugangszertifikate.html"

' Cells(rZelle.Row, 8) -> hier wird automatisch der Terminbetreff eingetragen
'Lesebestätigung aus
.ReadReceiptRequested = False
' Dateianhang hinzufügen
'.Attachments.Add Name
' Mail Anschauen
'.Display
' Mail Senden
.Send ' Die Mail sofort senden!
End With
Set OutApp = Nothing

End If
Next

End Sub




kann mir einer weiter helfen?

Besten Dank

DJjocker