Thema Datum  Von Nutzer Rating
Antwort
Rot Makro IBM PCM verbinden mit Outlook
10.01.2022 12:21:40 Sascha
Solved
12.01.2022 00:54:21 xlKing
NotSolved
05.02.2022 23:43:21 Gast26173
NotSolved

Ansicht des Beitrags:
Von:
Sascha
Datum:
10.01.2022 12:21:40
Views:
696
Rating: Antwort:
 Nein
Thema:
Makro IBM PCM verbinden mit Outlook

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


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 IBM PCM verbinden mit Outlook
10.01.2022 12:21:40 Sascha
Solved
12.01.2022 00:54:21 xlKing
NotSolved
05.02.2022 23:43:21 Gast26173
NotSolved