Email mit Hilfe von Makro
10.03.2014 11:50:19
Makro
ich weiß, ich hab diesbezüglich schon ein Thema eröffnet, doch haben sich jetzt verschiedene Aktualisierungen ergeben:
Ich habe nun folgenden Code, mit dem eine Email automatisch verschickt werden soll, wenn in der Spalte T im Excelsheet "noch 14 Tage" auftaucht:
Option Explicit
Sub E_Mail_senden()
Dim zelle As Range
Dim outl
Dim Mail As Object
Dim letzteZeile As Long
Dim quelle As String
Dim Datenblatt As Worksheet
Set Datenblatt = ActiveWorkbook.Sheets("Datenblatt")
letzteZeile = Cells(Rows.Count, 1).End(xlUp).Row + 1
quelle = ActiveWorkbook.ActiveSheet.Name
For Each zelle In Datenblatt.Range("T4:T" & letzteZeile & "")
If zelle = "noch 14 Tage" Then
Set outl = CreateObject("Outlook.Application")
Set Mail = outl.CreateItem(0)
Mail.Subject = "Erinnerung Probezeit"
Mail.body = "Die Probezeit von " & zelle.Offset(0, -19).Text & " läuft in 14 Tagen ab"
Mail.To = zelle.Offset(0, 1)
'Die Email Adresse des neben der Spalte Status Probezeit soll hier stehen
Mail.send
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
Leider zeigt es mir jetzt immer folgende Fehlermeldung an: Laufzeitfehler 13 Typen unverträglich...Kann mir hier jemand helfen? Vielen Dank schon im Voraus!