Fehler beim erstellen einer Outlook Mail aus Notes

[Robman]

Hallo Forum,
Hallo liebe Helfer,

ich habe folgendes Problem.

bei mir gibt es in Notes (Version 4.6) einen Button "E-Mail senden" bei dem ein Script abläuft, eine Outlook-E-Mail erstellt und diese dann anzeigt. Das ganze läuft mit Outlook Redemption, damit nicht die Warnhinweise von Outlook kommen.

Auf einem bestehenden System mit Windows 2000 Profassional SP4 und Office XP oder Office 2003 läuft alles ohne Probleme.
Jetzt soll das ganze aber auch auch Windows XP mit SP 3 und Office 2003 laufen. Das tut es aber nicht. Wenn mann auf den Button klickt, dann kommt eine Fehlermeldung "Can not create automation object." mehr nicht. Die Mail wird natürlich nicht erstellt.
Wird über z.b. Excel VBA eine Mail erstellt, dann funktioniert das. Der Objektaufruf ist dabei der selbe wie in Notes:


     _{Set olapp = CreateObject("Outlook.Application")
     Set SafeMail = CreateObject("Redemption.SafeMailItem")
     Set olItem = olapp.CreateItem(0)
     Set SafeMail.Item = olItem}


Hier mein Code:


<sub>Sub Click(Source As Button)
     Dim Doc1 As notesDocument
     Dim Workspace As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Set uidoc = Workspace.currentDocument
     Set Doc1 = uidoc.document
    
     Dim MyLDAPConn
     Dim olapp
     Dim SafeMail
     Dim olItem
    
     Dim ManagerMail As String
     Dim sRecipient As String
     Dim sBody As String
     Dim User As String
     User = Environ("USERNAME")
    
     Dim PLZ As Long
    
     If doc1.mailsent(0) <> "" Then
          If Msgbox ("Die eMail ist schon versandt wurden! Wollen Sie die eMail trotzdem vesenden?", 52, "Hinweis für unsere Agenten") = 7 Then        
               Exit Sub
          End If
     End If
    
     If Doc1.PLZ(0) = "" Then
          Msgbox "Sie müssen eine PLZ eingeben!", 16, "Fehler"
          Exit Sub
     End If
    
     PLZ = Clng(Doc1.PLZ(0))
    
     sRecipient = GetEmailByPLZ(PLZ)
    
     Set olapp = CreateObject("Outlook.Application")
     Set SafeMail = CreateObject("Redemption.SafeMailItem")
     Set olItem = olapp.CreateItem(0)
     Set SafeMail.Item = olItem
    
     sBody = Hier mein Mailtext

     Set MyLDAPConn = CreateObject("LDAPConn.Connection")
     MyLDAPConn.Initialize
     ManagerMail = MyLDAPConn.GetManagerEmail(User)
     If ManagerMail <> "" Then
          sBody = "richtiger Empfänger: " & sRecipient & Chr(13) & sBody
          sRecipient = ManagerMail
     End If
    
     With SafeMail
          .Recipients.Add sRecipient
          
          .Subject = Doc1.Nachname_2(0) & ", " & Doc1.Vorname_2(0) & ", " & Doc1.Versnr(0) & " --- " & Date & " " & Time
          
          .Body = sBody
          
          On Error Resume Next
          .save
          On Error Goto 0
          
          .Display
     End With
    
     Set olapp = Nothing
     Set SafeMail = Nothing
     Set olItem = Nothing
    
     Call uidoc.FieldSetText("mailsent",sRecipient)
End Sub</sub>  



Vielleicht kann mir ja jemand helfen oder einen Tipp geben wo man suchen kann. Es muss ja irgendwie mit der Umstrellung auf das andere System zusammenhängen. Vielleicht irgendeine Berechtigungssache oder so.

Aus den bisherigen Forumsbeiträgen zu dieser Fehlermeldung bin ich leider auch nicht wirklich schlau geworden.

MfG

Robman

[m3]

1) In welcher Zeile kommt der Fehler?

[Robman]

Das weiß ich nicht genau. Gibt es denn da einen Debugger ala F8 in Excel VBA und wenn ja dann wo.
Im Punkt Scripte in Notes bin ich leider mal garnicht bewandert. Derjenige, der das mal geschrieben hat ist leider nicht mehr da und ich wurde quasi ins kalte Wasser geschmissen. Vom Programmieren allgemein hab ich aber schon Ahnung.

[klauss]

Unter: Datei / Extras /Debug Lotus Script

[DerAndre]

Dann schau in der Hilfe mal nach onError
Da gibt es das ganze für eine nette Fehlerbehandlung.

Oder hier im Forum suchen.

[Robman]

Erstmal Danke für die Hilfe. Ich werde mal ein bisschen rumprobieren und mich dann nochmal melden.

[Robman]

So hab jetzt die Zeile bei der es abstürzt. Es ist bei:

Set MyLDAPConn = CreateObject("LDAPConn.Connection")

Nun weiß ich aber auch  nicht was LDAP ist. Muss man das vielleicht noch zusätzlich installieren oder bringt das Lotus schon mit.

[Robman]

Ich glaube das Problem hat sich erledigt.

Auf dem neuen System fehlte die ldapconn.dll.
Kein Wunder das es nicht klappte.

Hab vom bestehenden System die ldapconn.dll auf den anderen Rechner ins System32 Verzeichnis kopiert und Sie dann registriert. Jetzt geht der Button.

Danke an die Helfer.