Domino 9 und frühere Versionen > Entwicklung

Fehler beim erstellen einer Outlook Mail aus Notes

(1/2) > >>

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 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  



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.

klaussal:
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.

Navigation

[0] Themen-Index

[#] Nächste Seite