Outlookprüfung schlägt fehl


Sub SendMail(ByVal strSubjekt As String, strAnhang As String, strText1 As String, strText2 As  _
String)
Dim objOutlook As Object, objMail As Object
Dim strSignatur As String, strMailtext As String
Set objOutlook = CreateObject("Outlook.Application") 'Outlook installiert?
If Not objOutlook Is Nothing Then
Else
MsgBox "Auf diesem System ist kein Outlook installiert!" & vbNewLine & "Die  _
erzeugte Datei mit dem hier installierten Mailsystem versenden", vbOKOnly, vbExclamation, "Kein Outlook!!!!"
Exit Sub
End If
Application.WindowState = xlMinimized
Set objMail = objOutlook.CreateItem(0)
strMailtext = "" & _
strText1 & "

" & strText2 & ""
With objMail
.GetInspector
strSignatur = .HTMLBody
.To = Sheets(2).[b144].Value
.Subject = strSubjekt
.attachments.Add strAnhang
.HTMLBody = strMailtext & strSignatur
.Display
End With
Set objOutlook = Nothing
Set objMail = Nothing
End Sub

Habe den Code aus dem Internet und an meine Bedürfnisse angepasst.
Das Problem ist die Abfrage ob Outlook installiert ist. Es wird bei nicht installiertem Outlook die Exit Sub ausgeführt ohne die MSGBox anzuzeigen.
Mit einem installierten Outlook wird ein ausgefülltes Mailfenster angezeigt.
Ich sehe den Fehler nicht......

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub SendMail(ByVal strSubjekt As String, strAnhang As String, strText1 As String, strText2 As String) Dim objOutlook As Object, objMail As Object Dim strSignatur As String, strMailtext As String Set objOutlook = CreateObject("Outlook.Application") 'Outlook installiert? If objOutlook Is Nothing Then MsgBox "Auf diesem System ist kein Outlook installiert!" & vbNewLine & _ "Die erzeugte Datei mit dem hier installierten Mailsystem versenden", _ vbOKOnly, vbExclamation, "Kein Outlook!!!!" Else Application.WindowState = xlMinimized Set objMail = objOutlook.CreateItem(0) strMailtext = vbLf & strText1 & strText2 & vbLf With objMail .GetInspector strSignatur = .HTMLBody .To = Sheets(2).[b144].Value .Subject = strSubjekt .attachments.Add strAnhang .HTMLBody = strMailtext & strSignatur .Display End With End If Set objMail = Nothing Set objOutlook = Nothing End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Hallo Bernd,
dann in deiner Prozedur:

Sub SendMail(ByVal strSubjekt As String, strAnhang As String, _
        strText1 As String, strText2 As String)
    Dim objOutlook As Object, objMail As Object
    Dim strSignatur As String, strMailtext As String

    On Error Resume Next

    Set objOutlook = CreateObject("Outlook.Application") 'Outlook installiert?
    If objOutlook Is Nothing Then
        MsgBox "Auf diesem System ist kein Outlook installiert!" & vbLf & _
            "Die erzeugte Datei mit dem hier installierten Mailsystem versenden", _
            vbExclamation, "Kein Outlook!!!!"
    Else

        On Error GoTo 0

        Application.WindowState = xlMinimized
        Set objMail = objOutlook.CreateItem(0)

        strMailtext = strText1 & strText2

        With objMail
            .GetInspector
            strSignatur = .HTMLBody
            .To = Sheets(2).[b144].Value
            .Subject = strSubjekt
            .attachments.Add strAnhang
            .HTMLBody = strMailtext & strSignatur
            .Display
        End With

        Set objOutlook = Nothing
        Set objMail = Nothing

    End If
End Sub

On Error Resume Next benutze ich nur wenn ich einen Fehler erwarte den ich nicht abfangen kann wie z.B. dein CreateObject. Ansonsten kommt der nicht zum Einsatz.
Gruß
nepumuk

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F
1	Gruß Sepp
2
3

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread