Domino 9 und frühere Versionen > Entwicklung

Worddocs als Dateianhang versenden

(1/2) > >>

Steffen_Albrecht:
Hallo,

ich möchte aus einer Datenbank (nicht Maildatenbank!) ein Worddokument erzeugen und als Fax versenden.

Das Erstellen des Worddokuments ist nicht das Problem (funzt schon) aber wie kann ich dann die fertige Datei als Attachment an ein Memo hängen und versenden?
Und wie kann ich überhaupt ein neues Memo per Script erstellen?

Grüßle
     Steffen

Axel:
Hi,

ich hab mal eine Fuinktion geschrieben, die ein Memo erstellt und zum bearbeiten öffnet. Der Empfänger und die Betreffszeile werden als Parameter übergeben.

Function CreateMailMemo(varSendTo As Variant, sSubject As String) As Integer
   
   Dim session As New NotesSession
   Dim workspace As New NotesUIWorkspace
   Dim maildb As NotesDatabase
   Dim maildoc As NotesDocument
   Dim profile As NotesDocument
   Dim sMailAdress As String
   Dim sMailSubject As String
   
   CreateMailMemo = 0
   
   Set maildb = New NotesDatabase("","")
   maildb.OpenMail
   Set profile = maildb.GetProfileDocument("CalendarProfile")
   
   Set maildoc = New NotesDocument(maildb)
   maildoc.Form = "Memo"
   maildoc.Logo = profile.DefaultLogo(0)
   maildoc.Principal = profile.Owner(0)
   maildoc.SendTo = varSendTo
   maildoc.Subject = sSubject
   
   Call workspace.EditDocument(True, maildoc)
   
End Function

Axel

Steffen_Albrecht:
Danke für die flinke Antwort!
Ich versuche erstmal selbet das Script anzupassen.

Gruß
    Steffen

Steffen_Albrecht:
Hallo!

Ich fürchte, ich benötige nochmals eine kleine Hilfestellung.  :'(
Das Schreiben ins Worddoc, das Speichern und auch das Erstellen der Mail läuft super. Aber wie bekomme ich diese Worddatei jetzt als Anhang an das Memo?  ???

Gruß
    Steffen

Axel:
Hi,

schau dir mal in der Designer-Hilfe die Methode EmbedObject aus der Klasse NotesRichTextItem an. Da sind auch einige Beispiele dabei.

Auszug:
...
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( doc, "Body" )
Set object = rtitem.EmbedObject _
( EMBED_ATTACHMENT, "", "c:\jim.sam")
doc.Form = "Main Topic"
...


Das sollte dir weiterhelfen.

Schönes Wochenende.
Axel

Navigation

[0] Themen-Index

[#] Nächste Seite