Hallo zusammen,

ich habe folgendes Problem:

Ich möchte ein Makro in IBM Personal Communications laufen lassen. Das Makro greift im "Host" die Daten ab und soll dann im Anschluss anhand einer If...Then-Abfrage eine bestimmte Outlook-Vorlage öffnen.

Diese If...Then-Abfrage funktioniert nur leider nicht. Es kommt immer der Fehler "Laufzeitfehler in Microsoft VBScript - Line 40 - Typenkonflikt: 'fn' (rot markierte Zeile, wird dann auch die folgenden If-Zeilen betreffen)

Das Makro-Ende sieht wie folgt aus:

dim fn
fn= AutECLSession.autECLPS.GetText (9,13,5)
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIA.WaitForInputReady

If fn = 38825 Then

Set moft = CreateObject("Outlook.Application")
Set mMail = moft.CreateItemFromTemplate("C:\***\Anschreiben *** RB.msg")
mMail.Display

end If

If fn = 38826 Then

Set moft = CreateObject("Outlook.Application")
Set mMail = moft.CreateItemFromTemplate("C:\***\Anschreiben *** RB.msg")
mMail.Display

end If

If fn = 38828 Then

Set moft = CreateObject("Outlook.Application")
Set mMail = moft.CreateItemFromTemplate("C:\***\Anschreiben *** BR.msg")
mMail.Display

end If

If fn = 38829 Then

Set moft = CreateObject("Outlook.Application")
Set mMail = moft.CreateItemFromTemplate("C:\***\Anschreiben *** BR.msg")
mMail.Display

end If

If InStr(mMail.To, "##Emailadresse##") Then
        mMail.To = Replace(mMail.To, "##Emailadresse##", emailadresse)
    End If

If InStr(mMail.Subject, "##Kennzeichen##") Then
        mMail.Subject = Replace(mMail.Subject, "##amk##", amk)
    End If
   
If InStr(mMail.Subject, "##Versicherungsscheinnummer##") Then
        mMail.Subject = Replace(mMail.Subject, "##vtnr##", vtnr)
    End If

end sub

Kann mir jemand sagen, wo der Fehler liegt?

Vielen Dank im Voraus.

MfG

Sascha