Hey,
danke für die schnellen Antworten
Ich kenne mich leider garnicht aus mit Scripten
Bisher habe ich nur in Internet nach fertig Lösungen gesucht.
Dieses Script soll anscheinend funktionieren, aber das tut es bei mir nicht, da ich keine Ahnung habe wäre es ja möglich das nur ein paar Kleinigkeiten geändert werden müssen das ich es zum laufen bekomme?
...... cut of code ....
Private Sub Notes()
Dim oSess As Object
Dim oMailDB As Object
Dim oMailDoc As Object
Dim oBody As Object
Dim ws As Object
Dim uidoc
Dim mailsvr
Dim mailfile
Set oSess = CreateObject("Notes.NotesSession")
mailsvr = oSess.GetEnvironmentString("MailServer", True)
mailfile = LCase(oSess.GetEnvironmentString("MailFile", True))
Set oMailDB = oSess.GETDATABASE("", "")
Call oMailDB.open(mailsvr, mailfile)
If oMailDB.isopen Then
Set oMailDoc = oMailDB.CREATEDOCUMENT
Else
MsgBox "Could not open Notes", 32
End If
oMailDoc.subject = "Test mail"
oMailDoc.Form = "Memo"
Set oBody = oMailDoc.CREATERICHTEXTITEM("BODY")
Call oBody.Embedobject(1454, "", "c:\Testattachment.htm")
Set ws = CreateObject("Notes.NotesUIWorkspace")
Set uidoc = ws.editdocument(True, oMailDoc, False)
Set oSess = Nothing
Set oMailDB = Nothing
Set oMailDoc = Nothing
Set ws = Nothing
Set uidoc = Nothing
End Sub
..... end cut .........
