Hallo Bernhard
Wenn Du das einfach abschicken willst dann
ersetze doch mal:
EditMail: Set NewMail = workspace.EDITDOCUMENT(True, noteCursorDoc)
ADR = "xxx@xxxx.DE"
With NewMail
Call .FieldSetText("EnterSendTo", ADR)
Call .FieldSetText("Subject", "WG: Neues Testverfahren")
Call .FieldSetText("Body", "Freier Text")
'----------------------------------------------------------------------------'
' DIESER AUFRUF FÜHRT IN LOTUS NOTES ZU EINER FEHLERSITUATION!! '
'----------------------------------------------------------------------------'
Call .send(True)
End With
durch:
ADR = "xxx@xxxx.DE"
noteCursorDoc.ReplaceItemValue "SendTo", ADR
noteCursorDoc.ReplaceItemValue "Subject", "WG: Neues Testverfahren"
noteCursorDoc.ReplaceItemValue "Body", "Freier Text"
noteCursorDoc.send False, False
Denn entweder zum Bearbeiten öffnen oder automatisch abschicken. Beides gleichzeitig passt irgendwie nicht zusammen.
Gruss
Remo
Set NewMail = workspace.EDITDOCUMENT(True, noteCursorDoc)
ADR = "xxx@xxxx.DE"
With NewMail
Call .FieldSetText("EnterSendTo", ADR)
Call .FieldSetText("Subject", "WG: Neues Testverfahren")
Call .FieldSetText("Body", "Freier Text")
Was wird wohl passieren wenn an dieser Stelle jemand (oder später wenn das Dokument noch offen ist) STRG +S drückt?
Call .send(True)
End With
Warum wollt Ihr eigendlich das Stationary versenden? Braucht Ihr das nicht mehr?