Danke für die schnelle Reaktion!
@Remo
Ja, das ist gut möglich, dass ich über meine private Mailbox sende, anstatt über die zusätzlich eingebundene. Wobei dank »Principal« der Absender der eingebunden Mailbox wie gewünscht erscheint.
Hier der Code:
Dim oLNSession As Object 'NotesSession
Dim oLNMailDB As Object 'NotesDatabase
Dim oLNDocument As Object 'NotesDocument
Dim oLNField As Object 'NotesItem
'Get Connection to Notes
Set oLNSession = CreateObject("Notes.NotesSession")
'Get Connection to Mail File
Set oLNMailDB = oLNSession.GetDatabase("", "")
'Open Mail-DB
If Not oLNMailDB.IsOpen = True Then
Call oLNMailDB.OPENMAIL
End If
'Create New Memo
Set oLNDocument = oLNMailDB.CreateDocument
oLNDocument.Form = "Memo"
'Create 'Subject Field
Set oLNField = oLNDocument.AppendItemValue("Subject", "Hallo Test")
'Sent by/group mailbox/delegate
Set oLNField = oLNDocument.AppendItemValue("Principal", "AdresseDerEingebundenen@Mailbox.com")
'Create 'Send To' Field
Set oLNField = oLNDocument.AppendItemValue("SendTo", "empfänger@xyz.com")
'Create 'Body' of memo
Set oLNField = oLNDocument.CreateRichTextItem("Body")
With oLNField
.AppendText "Ich bin der Mailtext"
End With
oLNDocument.SaveMessageOnSend = True
oLNDocument.Posteddate = Now()
oLNDocument.Send (0)
@Michael
Mhm, wahrscheinlich sende ich tatsächlich über die falsche Mailbox. Der Absender ist in Ordnung, den setze ich ich, siehe oben, mit »Principal«.
Ich glaube nicht, dass das eine Teammailbox von Openntf ist. Woran würde ich das als Notes-Laie erkennen? Aussehen tut das Ding wie meine eigene Mailbox, allerdings liegt die eingebundene auf einen anderen Server und scheint einer älteren Notes-Version (wahrscheinlich 6) zu entstammen, die Icons (der Views, Ordner usw.) sehen etwas antiquarisch aus ...
Vielen Dank für Eure Hilfe!
Jochen
Danke für Eure vielen hilfreichen Antworten!
Nach kleinen Codeänderungen scheint es jetzt zu funktionieren.
Ich habe
Set oLNMailDB = oLNSession.GetDatabase("", "")
Set oLNMailDB = oLNSession.GetDatabase("EMEAXYZ", "maildbname")
Jetzt wird offenbar die gewünschte Mail-DB verwendet, somit landen die gesendeten Mails auch in der gewünschten Sent-View.
Und Ja, in der Designer-Hilfe werde ich sicher noch blättern müssen, und der Befehl
Call oLNMailDB.OPENMAIL
mag unpassend sein - aber es war das, was von den zusammengegoogelten Schnipseln auf Anhieb funktioniert hat.
Schön ist der Code dadurch natürlich nicht und es stört, dass die Notes-Objekte allgemein als »Object« deklariert sind, statt als echte Notes...-Objekte, wodurch Intellisense nicht funktioniert.
Da werde ich noch ein bißchen probieren und studieren müssen ...
Danke nochmals, und ein schönes Wochenende!
Jochen