AW: @Renee bzgl E-Mail Benachrichtigung
07.03.2009 13:50:33
Renee
Hi Jessi,
Zitat: Muss ich noch etwas selbst an Outlook ggf. einstellen?
Nein eigentlich nicht.
Hast du den Code in ein Modul (nicht Tabelle!) kopiert und das Makro aufgerufen ?
Heisst das Tabellenblatt "Tabelle1" ? und befinden sich die Angaben in den entsprechenden Spalten, wie im Makro ?
Hier noch ein Code, der dir sagt, ob was verschickt wurde oder nicht!
Sub VerfallPrüfen()
Const ctTabellenName = "Tabelle1"
Const ctSpaltePrüfen = "J"
Const ctSpalteErledigt = "K"
Const ctSpalteBetreff = "B"
Const ctSpalteEmpfänger = "I"
Dim lRow As Long
Dim bDoCheck As Boolean
Dim objApp As Object
Dim objMailItm As Object
Dim lMailCnt As Long
Set objApp = CreateObject("Outlook.Application")
lRow = 4
bDoCheck = True
Do While bDoCheck
With Sheets(ctTabellenName)
If .Cells(lRow, ctSpaltePrüfen) = Date And _
.Cells(lRow, ctSpalteErledigt) "erledigt" Then
Set objMailItm = objApp.CreateItem(0)
objMailItm.To = .Cells(lRow, ctSpalteEmpfänger)
objMailItm.Subject = .Cells(lRow, ctSpalteBetreff)
objMailItm.Body = "Was immer als Mailtext!"
objMailItm.Send
Set objMailItm = Nothing
.Cells(lRow, ctSpalteErledigt) = "erledigt"
lMailCnt = lMailCnt
End If
lRow = lRow + 1
bDoCheck = Not (IsEmpty(.Cells(lRow, ctSpaltePrüfen)))
End With
Loop
objApp.Quit
Set objApp = Nothing
If lMailCnt = 0 Then
MsgBox "Es wurden keine Mails gefunden/verschickt!", _
vbOKOnly + vbInformation, "Mails geprüft"
Else
MsgBox "Es wurden " & lMailCnt & " Mails verschickt!", _
vbOKOnly + vbInformation, "Mails geprüft"
End If
End Sub
GreetZ Renée