Lotus Notes / Domino Sonstiges > OLE/COM-Programmierung

visual basic script – email generieren mit Anhang – Lotus Notes „Neues Nachricht

<< < (2/3) > >>

TRO:
1. zu Deiner Windows-Script-Host-Fehlermeldung:

was steht denn in Deinem Script in Zeile 54 .... sonst können wir hier nur Oraclen

2. im Programm gibt es drei fast voneinander unabhängige Blöcke, deren Reihenfolge die Reihenfolge von Text, Signatur und Anhang regeln:

Anhang:

--- Code: ---set embedobj = attachme.EmbedObject(1454, "", "C:\Temp\test.vbs", "")

--- Ende Code ---

Text:

--- Code: ---attachme.addnewline 1
attachme.appendText "Hier kommt der Text"

--- Ende Code ---

Signatur:

--- Code: ---'Mailbox Einstellungen

set profile=maildb.getprofiledocument("CalendarProfile")

'Uns interessiert ob Signatur verwendet wird
if profile.GetFirstItem("EnableSignature").Text="1" then
   'Signatur wird verwendet
   bolSignaturEnabled=True
   'Signatur auslesen
   set rtsignature=profile.getfirstitem("Signature_Rich")
   If rtsignature.Type = 1 Then
      'Zeilenumschaltungen
      attachme.addnewline 2
      'dranhängen
      attachme.appendrtitem rtsignature
   end if

   'Nun schalten wir Signatur aus!
   'War falsch:
   'profile.EnableSignatur=""
   'richtig:
   profile.EnableSignature=""
   profile.save false,false
end if

--- Ende Code ---

alles muss natürlich nach

--- Code: ---set attachme = doc.CreateRichTextItem("body")

--- Ende Code ---

und vor

--- Code: ---'RichTextItem mal Updaten
attachme.update

--- Ende Code ---
stattfinden

Durch Variieren der Reihenfolge der Blöcke solltest Du Dein gewünschtes Ergebnis hinbekommen (+ event. ein paar zusätzliche attachme.addnewline x )


hth

Thomas

Fedaykin:
Hallo Jürgen

Habe den Code abgeändert. Klatsch Anhang nun erst in anderes RichTextItem um danach anzufügen.

Gruss
Remo

JJone:
Hallo Remo,

super jetzt funktionierts.

Nur wenn die vbs-datei mehrmals ausgeführt wird erscheint folgende Fehlermeldung:
( siehe Anhang )

Unter den Vorgaben ist das Häkchen bei "Meine ausgehenden Mailnachrichten automatisch mit Signatur versehen nicht mehr angehakt. ( Vielleicht deshalb die Fehlermeldung )

Zeile 59

set ws = CreateObject("Notes.NotesUIWorkspace")
59 > with ws.EditDocument(True, doc)
   .GotoField "BODY"
end with

Gruß Jürgen

Fedaykin:
Hallo Jürgen

Habe nochmal Script angepasst. Wenn ich so sehr schnell mehrfach hintereinander aufrufe (was ich nicht wirklich empfehle!) dann kann er bei mir die NotesSession nicht initialisieren (wahrscheinlich weil er mit letztem Script noch beschäftigt ist).

PS: Wenn das Script mehrere solche Mails direkt hintereinander erstellen soll würde ich mir überlegen, dass das Script nur einmal läuft aber mehrere Mails in "einem Rutsch" erstellen kann.

Gruss
Remo

JJone:
Hallo Remo, Hallo Thomas

habe noch ein paar Konstellationen getestet.

Wenn ich das vbs-Datei ausführe erscheint nun folgende WHS-Fehlermeldung ( siehe Anhang )

Wenn ich den Notes-Client nach der Ausführung der vbs-Datei schließe erfolgt eine
Notes Fehlerberichterstattung: ( siehe Anhang )

Führe ich die vbs-Dateien mehrmals aus ( in gewissen Zeitabständen ) wird/ist das Häkchen bei
“Meine ausgehenden Mailnachrichten automatisch mit Signatur versehen“ nicht mehr gesetzt.

WHS-Fehlermeldung bei Zeile 60

set ws = CreateObject("Notes.NotesUIWorkspace")
zeile 60 > set uidoc=ws.EditDocument(True, doc)
uidoc.GotoField "BODY"

Vielleicht könnt ihr noch mal drüberschauen, wenn ich Zeit habe ( wenn.. J ) werde ich mich
mit dem Zeug auseinandersetzten.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete