Domino 9 und frühere Versionen > ND9: Administration & Userprobleme

E-Mailversand aus Excel geht mit LN 9 nicht mehr

<< < (10/17) > >>

Benni1988:
ja, APPActivate "IBM NOTES" habe ich probiert, aber habe es net hinbekommen..Aber kann ja da auch noch einmal ganz von vorne anfangen, falls ich (bzw. eher Ihr/wird) das anders nicht hinbekommen.

Mein Lotus Notes ist online, d.h ich muss ja im Netz sein. Meine Id liegt ja auch im Netzwerk.

Ich muss leider nur jetzt los, ich probiere das debug.print morgen mal :)

jBubbleBoy:
Weißt du was "APPActivate" macht?
Der 1. Google-Treffer passt schon und gibt dir die Antwort ;)

Benni1988:

Ich habe es jetzt mal mit Debug.Print versucht.


--- Code: ---Option Explicit
 
Sub lotus()

 Dim sText As String, sEmpfang As String, sBetrifft As String
 Dim session As Object, db As Object, doc As Object, rtobject As Object
 Dim rtitem As Object, sKopie As String
 Dim AttachMe As Object, DerAnhang As Object
 Dim user As String, server As String
 Dim mailfile As String, sBlindKopie As String
 Dim vAn As Variant, vCopy As Variant
 Dim vBlind As Variant, sAnhang As String
 Dim stSignature As String
 
 
 On Error GoTo Fehler
 

 sEmpfang = "test" ' Einträge durch " ; " getrennt
 Debug.Print sEmpfang
 sBetrifft = "Test"                 ' die Betreffzeile
 Debug.Print sBetrifft
 sText = "funktioniert es? "                            ' Testtext
 Debug.Print sText
 sKopie = " "                       ' Einträge durch " ; " getrennt
 Debug.Print sText
 sBlindKopie = " "                  ' Einträge durch " ; " getrennt
 Debug.Print sBlindKopie
 vAn = Split(sEmpfang, " ; ")       ' Empfänger Array
 Debug.Print vAn
 sAnhang = ""                       ' richtiger Pfad Muss natürlich richtig gesetzt werden
 Debug.Print sAnhang
 If Len(sKopie) > 0 Then vCopy = Split(sKopie, " ; ") 'cc Array
 If Len(sBlindKopie) > 0 Then vBlind = Split(sBlindKopie, " ; ")  'bcc Array
 
 
 Set session = CreateObject("notes.notessession") ' Notes muss gestartet sein
 Debug.Print session
 user = session.UserName
 Debug.Print user
 server = session.GetEnvironmentString("MailServer", True)
 Debug.Print server
 mailfile = session.GetEnvironmentString("MailFile", True)
 Debug.Print mailfile
 Set db = session.getdatabase(server, mailfile)
 Set doc = db.createdocument()
 
 doc.form = "Memo"
 Debug.Print doc.form
 doc.sendTo = vAn                                       ' an array
 Debug.Print doc.sendTo
 If Len(sKopie) > 0 Then doc.copyto = vCopy             'cc Array
 If Len(sBlindKopie) > 0 Then doc.blindcopyto = vBlind  'bcc Array
 
 doc.Subject = sBetrifft ' die Betreffzeile
 Debug.Print doc.Subject
 stSignature = db.GetProfileDocument("CalendarProfile").GetItemValue("Signature")(0)
 Debug.Print stSignature
 Set rtitem = doc.CREATERICHTEXTITEM("body")
 Debug.Print rtitem
 Call rtitem.APPENDTEXT(sText & stSignature)
 Debug.Print rtitem
 doc.SAVEMESSAGEONSEND = True
 doc.PostedDate = Now
 
 ' *******************************************
 If sAnhang <> "" Then
  Set AttachMe = doc.CREATERICHTEXTITEM("Attachment")
  Set DerAnhang = AttachMe.EMBEDOBJECT(1454, "", sAnhang, "Attachment")
 End If
 
 
 '*******************************
 
 Call doc.Send(False)
 
Fehler:
 MsgBox "Fehler in Sub Fehler 0 Erste Division" & vbCrLf _
 & "Fehlernummer: " & Err.Number & _
 vbCrLf & "Fehlerbeschreibung: " & Err.Description

 
Aufraeumen:
 On Error GoTo Fehler
 Set rtitem = Nothing
 Set AttachMe = Nothing
 Set DerAnhang = Nothing
 Set db = Nothing
 Set doc = Nothing
 Set session = Nothing
 Exit Sub
 
End Sub

--- Ende Code ---

Allerdings springt er immer . wenn ich bei sAnhang ankomme, direkt nach unten und bringt mir die Fehlermeldung (durch MsgBox)


--- Code: ---Fehlernummer:13
Fehlerbeschreibung: Typen unverträglich
--- Ende Code ---

Die anderen Debug.Print bzw Haltepunkte werden übersprungen...wieso?
Hab ich mal wieder was flasch gemacht?

@jBuubleboy: Dadurch stürzt LN auch ab. Musste es aber auf AppActivate (IBM Notes Mail) ändern

Micha B:

--- Zitat ---Meine Id liegt ja auch im Netzwerk.
--- Ende Zitat ---
Was bedeutet das? Liegt Dein Data Verzeichnis auf einem Netzlaufwerk? Wenn ja, solltest Du als erstes Notes lokal nutzen, vielleicht liegt ja da schon der Hund begraben.

Benni1988:
ich kann Lotus Notes leider nur "online" benutzen, sprich meine ID, usw liegt auf dem Firmennetzwerk. Das ist bei uns irgendwie Vorgabe...
Kann das also nicht testen...

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete