Per VB generierte Mail in Sent einer Group Mailbox anzeigen

[jochen_m]

Liebe Zielgruppe,

nachdem mich in der alten Firma eine Hassliebe mit Outlook verband, dass sich mit VB6 willig zurechtbiegen liess, plage ich mich nun mit Lotus Notes 8.02. Es ist, höflich formuliert, recht gewöhnungsbedürftig, seufz. Das könnte aber auch an meinen nicht vorhandenen Notes-Kenntnisssen liegen 

Als kleine Bastelübung würde ich gerne vom VB6-Programm aus eine Mail generieren und senden. Soweit kein Problem, das funktioniert nach einigem googeln.
Mein Problem ist, dass die Mail über eine Group Mailbox versendet werden und dann im dortigen Sent sichtbar sein soll. Und da beginnt das Elend, denn ich weiß nicht mal, wie das Notes-technisch hier eingerichtet ist, wonch ich googeln muss   
Ich habe (normaler User mit Windows Admin-Rechten) mein eigenes Postfach mit meiner Mailadresse, kann dort schalten und walten fast wie ich will und sogar Actions erstellen. Dann ist da noch ein weiteres Postfach mit anderer Mailadresse separat eingebunden. Könnte das eine Group Mailbox sein? Andere Kollegen haben darauf ebenfalls Zugriff und die Berechtigungen scheinen etwas eingeschränkt zu sein.
Mittlerweile verwendet das VB-Progrämmchen
oLNDocument.AppendItemValue("Principal", "Hierüber@SollsRaus.com")
Damit geht die Mail raus wie gewünscht, nämlich nicht mit meinem Absender sondern mit dem der Group Mailbox.
Nur (hier isses endlich, mein Problem): Die so gesendete Mail erscheint in der Sent-View meiner privaten Mailbox, soll aber im Sent der Group Mailbox erscheinen.
Lässt sich das irgendwie bewerkstelligen?

Danke schonmal im voraus für alle Hinweise
  Jochen

[Fedaykin]

Hallo Jochen

Mich würde in dem Fall interessieren in welcher Datenbank Du das Mail erstellst bevor Du es absendest (habe das Gefühl das ist Deine private Mailbox)? Auf jeden Fall könnte ein Stück Code zur Analyse hilfreich sein.

Gruss
Remo

[michael-r]

Was willst du denn erreichen?

Wenn du doch über die Gruppenmailbox senden willst, dann kannst du das doch direkt, dann erscheint die Mail auch unter gesendet.

Allerdings müsstest du die Mailbox ansich etwas ändern, damit der Absender der Gruppe gezeigt wird oder du benutzt die Teammailbox von Openntf.

MFG Michael

[jochen_m]

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:

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

[Kadlec]

Wie heisst denn die Groupbox?
Den Namen müsstest Du dann in Deinen Code mit einbeziehen.

Boris

[ascabg]

Hallo,

Ich frage mal.

Was soll den diese Zeile in Deinem Code bewirken?

Call oLNMailDB.OPENMAIL

Lt. der Hilfe soll somit die aktuell in der Arbeitsumgebung eingestellte Maildatenbank geoeffnet werden.

Die Hilfe sagt aber auch, dass diese Schreibweise in der COM-Programmiereung nicht zur Verfuegung steht und man statt dessen

...OpenMailDatabase

der Klasse NotesDbDirectory verwenden soll.

Und da die eingestellte Maildatenbank geoeffnet wird, erklaert es sich doch, warum die gesendete Mail in Deiner Mailbox unter Gesendet erscheint/abgelegt wird.


Andreas

[BigWim]

Um ein Studium der Designerhilfe wirst Du nicht herumkommen.

Markus

[jochen_m]

Danke für Eure vielen hilfreichen Antworten!

Nach kleinen Codeänderungen scheint es jetzt zu funktionieren.
Ich habe

Code

Set oLNMailDB = oLNSession.GetDatabase("", "")

geändert zu

Code

Set oLNMailDB = oLNSession.GetDatabase("EMEAXYZ", "maildbname")

Kaum macht man's richtig, schon geht's 

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

[michael-r]

Ich weiss ja nicht ob das einfach wäre:
http://atnotes.de/index.php/topic,37783.0.html

Oder eine Teammailbox zu verwenden.