Thema Datum  Von Nutzer Rating
Antwort
Rot Makro Erstellen mit Outlook und farblicher Markierung
20.03.2023 16:28:51 Thomas Meyer
NotSolved
20.03.2023 16:38:35 Gast7777
NotSolved
21.03.2023 09:01:02 Thomas Meyer
NotSolved

Ansicht des Beitrags:
Von:
Thomas Meyer
Datum:
20.03.2023 16:28:51
Views:
570
Rating: Antwort:
  Ja
Thema:
Makro Erstellen mit Outlook und farblicher Markierung

Hallo miteinander, ich habe folgendes Problem. Ich habe diesen Code soweit erstellt und bin noch ziemlicher Anfänger, was VBA betrifft. Es wird bei mir immer eine Fehlermeldung angezeigt. Die Fehlermeldung ist folgendermaßen : Laufzeitfehler '13' : Typen unverträglich . Wenn ich die Debuggfunktionn verwende stoppt er bei dieser Zeile

Projektbeginn = CDate(Sheets("Projektsteuerung").Cells(i, "I").Value)

Nun die Frage an euch,ob mir jemand weiterhelfen kann.

Sub Erinnerungsmail()
Dim OutApp As Object
Dim OutMail As Object
Dim strTo As String
Dim strSubject As String
Dim strBody As String
Dim Projektbeginn As Date
Dim Projektende As Date
Dim i As Integer
'Stelle eine Outlook-Verbindung her
Set OutApp = CreateObject("Outlook.Application")

'Gehe durch jede Zeile in der Tabelle
For i = 5 To Sheets("Projektsteuerung").Cells(Rows.Count, "A").End(xlUp).Row
    'Hole das Start- und Enddatum des Projekts
    Projektbeginn = CDate(Sheets("Projektsteuerung").Cells(i, "I").Value)
    Projektende = CDate(Sheets("Projektsteuerung").Cells(i, "J").Value)
    'Überprüfe, ob fünf Monate seit dem Projektbeginn vergangen sind
    If DateDiff("m", Projektbeginn, Now) >= 5 Then
        'Erstelle die E-Mail
        Set OutMail = OutApp.CreateItem(0)
        strTo = "blabla@blabla.net"
        strSubject = "Erinnerung: Projekt von " & Sheets("Projektsteuerung").Cells(i, "B").Value & " läuft seit fünf Monaten"
        strBody = "Hallo," & vbCrLf & vbCrLf & _
                  "Hiermit möchte ich euch erinnern, dass das Projekt von " & Sheets("Projektsteuerung").Cells(i, "B").Value & _
                  " seit fünf Monaten läuft.Es wäre nun an der Zeit das erste Feedbackgespräch zu vereinbaren." & vbCrLf & vbCrLf & _
                  "Mit freundlichen Grüßen," & vbCrLf & "Ihr Unternehmen"
        
        'Füge die Empfängeradresse, den Betreff und den Text hinzu
        With OutMail
            .To = strTo
            .Subject = strSubject
            .Body = strBody
            .Display  'E-Mail anzeigen
            '.Send    'E-Mail sofort senden
        End With
        
        'Freigeben von Ressourcen
        Set OutMail = Nothing
    End If
Next i

'Beenden Sie die Outlook-Verbindung
Set OutApp = Nothing

End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro Erstellen mit Outlook und farblicher Markierung
20.03.2023 16:28:51 Thomas Meyer
NotSolved
20.03.2023 16:38:35 Gast7777
NotSolved
21.03.2023 09:01:02 Thomas Meyer
NotSolved