Email mit Hilfe von Makro verschicken
03.03.2014 15:37:02
Makro
ich hätte eine Frage bezüglich meines selbst erstellten Makros: Ich möchte bezogen auf eine Excel Datei eine Email verschicken, wenn die Spalte "Status Probezeit" (Zellen S4 bis S38) den Wert "noch 14 Tage" anzeigt. Die Email soll an die Emailadresse verschickt werden, die in der Spalte "Email" angeführt ist (Zellen T4 bis T38). Dazu hab ich im nachfolgenden meinen Makrocode angeführt, bei dem allerdings noch folgende Fehlermeldung auftritt: Laufzeitfehler 91 Objektvariable oder With-Blockvariable nicht festgelegt, dabei wird die Zeile "letzteZeile = zelle(Rows.Count, 1).End(xlUp).Row + 1" gelb unterlegt.
Option Explicit
Sub E_Mail_senden()
Dim zelle As Range
Dim outl
Dim Mail As Object
Dim letzteZeile As Long
Dim datenblatt As String
letzteZeile = zelle(Rows.Count, 1).End(xlUp).Row + 1
datenblatt = ActiveWorkbook.ActiveSheet.Name
For Each zelle In ThisWorkbook.datenblatt.Range("S4:S" & letzteZeile & "")
If zelle = "Noch 14 Tage" Then
Set outl = CreateObject("Outlook.Application")
Set Mail = outl.CreateItem(0)
Mail.Subject = "Erinnerung Probezeit"
Mail.body = "Sehr geehrter Herr..."
Mail.To = zelle.Offset(0, 1)
'Die Email Adresse des neben der Spalte Status Probezeit soll hier stehen
Mail.Display
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.AppActivate Mail
WshShell.SendKeys ("")
Set Mail = Nothing
Set outl = Nothing
Set WshShell = Nothing
End If
Next
End Sub