per Excel VBA Mail über zweiten Account versenden

[hexbsc]

Hallo zusammen,

ist es möglich, mit diesem Code eine Mail über einen zweiten zusätzlichen Account (gemeinsame Postbox mit Zugriff über den Workspace) zu versenden?

Code

Set session = CreateObject("notes.notessession")    
    user = session.UserName
    server = session.GetEnvironmentString("MailServer", True)
    mailfile = session.GetEnvironmentString("MailFile", True)
    Set db = session.getdatabase(server, mailfile)
    Set doc = db.createdocument()
    doc.Form = "Memo"
    doc.SendTo = vAn  ' an array
    If Len(sKopie) > 0 Then doc.copyto = vCopy 'cc Array
    If Len(sBlindKopie) > 0 Then doc.blindcopyto = vBlind 'bcc Array
    doc.Subject = sBetrifft ' die Betreffzeile
    
    doc.SAVEMESSAGEONSEND = True
    doc.PostedDate = Now

Wenn nicht mit diesem Schnipsel: was müsste man tun, um das umzusetzen?

Vielen Dank im Voraus für eure Untersützung und Hilfestellung.

Gruß,

hexbsc

[ascabg]

Hallo,

Du holst Dir aber das aktuelle Mailfile (GetEnvironmentString)
Das muss nicht auch zwingend das zweite (gemeinsame) Postfach sein, aus dem Du senden willst.


Andreas

[hexbsc]

Hallo ascabg,

sorry, aber das verstehe ich nicht wirklich. Die Aufrufprozedur stammt nicht von mir, sondern wurde in vielem Klein-Klein zusammengesucht... 

Ich vermute mal, dass ich hier irgendwo ansetzen müsste, oder?:

    user = session.UserName
    server = session.GetEnvironmentString("MailServer", True)
    mailfile = session.GetEnvironmentString("MailFile", True)
    Set db = session.getdatabase(server, mailfile)

Die Mailbox heißt GEJO.nsf und liegt auf demselben Server wie das Mailfile des Hauptbenutzers

Kannst du mir sagen, was ich genau eintragen muss, damit eine Mail über das GEJO.nsf verschickt werden kann, auch wenn das Mailfile des Hauptusers geöffnet wurde?
Was wäre zu beachten, damit sent by nicht in der versendeten Mail auftaucht?

Ich würde das nur zu gerne hinbekommen, benötige aber dringend eure Hilfe!

Vielen Dank schon mal im Voraus.

Gruß,

hexbsc

[Peter Klett]

    user = session.UserName
    server = session.GetEnvironmentString("MailServer", True)
    mailfile = session.GetEnvironmentString("MailFile", True)
    Set db = session.getdatabase(server, mailfile"GEJO.nsf")

[hexbsc]

Waaaaas? So einfach?

OK, ich werde es ausprobieren (lassen)

Verhindert das auch das "sent by" mit dem Namen das Hauptnutzers?

Vielen vielen Dank für die freundliche Unterstützung.

Gruß,

hexbsc

[Andrew Harder]

Grundsätzlich wird eine Mail wird im Namen des Owners des Mailfiles versendet. Das mit dem SendBy wird zusätzlich angezeigt, wenn dies nicht die gleiche UserID ist wie dieser.
Dies kann zum Beispiel wichtig sein, wenn ein Chef 2 Sekretärinnen hat und eine Mail aus dem Mailfile des Chefs versendet wird.
Man sieht auf einen Blick, ob er selbst, Sekretärin A, Sekretärin B, oder jemand völlig anderes die Mail versendet hat.

Du hast leider nicht gepostet wie Du die Mail genau sendest.
Ich nehme mal an mit einem doc.send. Dieser Standard wird mit einem doc.send nicht unterdrückt, sondern im Gegenteil explizit unterstützt.

[hexbsc]

Hallo Andy,

danke für deine Antwort. Du hast recht, es geschieht mit doc.send.

Ich werde es mal bei meiner Kollegin ausprobieren, die Zugang zu dieser Mailbox hat.

Sollte ich noch weitere Fragen haben, melde ich mich einach 

Gruß,

hexbsc

[hexbsc]

Hallo,

ich benötige leider noch mal eure Hilfe.

Ich habe nun Zugang zu der Mailbox GEJO und auch eine lokale Replik unter C:\Programme\Notes\data\mail, aber wenn ich den E-Mail-Versand ausführen möchte, passiert nichts.

Ich habe den Code gemäß dem Vorschlag umgeändert

Code

Set session = CreateObject("notes.notessession")
    
    user = session.UserName
    server = session.GetEnvironmentString("MailServer", True)
    
    'mailfile = session.GetEnvironmentString("MailFile", True)
    Set db = session.getdatabase(server, "GEJO.nsf")
    'Set db = session.getdatabase(server, mailfile)
    Set doc = db.createdocument()
    doc.Form = "Memo"
    doc.SendTo = vAn  ' an array
    If Len(sKopie) > 0 Then doc.copyto = vCopy 'cc Array
    If Len(sBlindKopie) > 0 Then doc.blindcopyto = vBlind 'bcc Array
    doc.Subject = sBetrifft ' die Betreffzeile
    
    doc.SAVEMESSAGEONSEND = True
    doc.PostedDate = Now

Wenn ich die Zeile

Code

Set db = session.getdatabase(server, "GEJO.nsf")

auskommentiere und diese beiden wieder mit in den Code nehme

Code

'mailfile = session.GetEnvironmentString("MailFile", True)
        'Set db = session.getdatabase(server, mailfile)

funktioniert der Versand, aber nur über mein eigenes Mailfile...

Hat jemand noch mal einen Tipp für mich?

Vielen Dank im Voraus für die großartige Unterstützung.

Gruß,

hexbsc

[Tode]

Code

Set db = session.getdatabase(server, "mail\GEJO.nsf")

Die Datenbank liegt ja im Mail- Unterverzeichnis...

[hexbsc]

Hallo,

vielen Dank für die prompte Antwort. Leider hat das auch nicht geholfen...

Das Mailfile liegt im selben Ordner wie mein eigenes Mailfile


Vielen Dank im Voraus für weiteren Input

Gruß,

hexbsc

[Tode]

Habs jetzt erst gelesen: Wenn die Datenbank auf LOKAL liegt, dann musst Du noch diese Zeile ändern:

Code

server = ""

[hexbsc]

Hallo Tode,

das war der entscheidende Hinweis. ES FUNKTIONIERT!!!

Jetzt nur noch eine Frage: Die Mail kommt zwar beim Empfänger an, erscheint aber nicht im SENT Ordner. Woran liegt das?

Vielen Dank für die Tipps!

Gruß,

hexbsc

[koehlerbv]

Sent ist kein Ordner, sondern eine Ansicht. Und: Speicherst Du die gernerierte Mail überhaupt in der gewünschten Datenbank, in deren Sent-View Du dann das Dokument zu sehen wünschst? Sonst wird das nämlich (logischerweise) nix ...

Bernhard

[Tode]

Kuck mal in Deiner eigenen gesendet- Ansicht (die von Deinem eigenen Mailfile)

[hexbsc]

Hallo zusammen,

die Mails tauchen nun doch in dem zweiten Account unter SENT auf.
Hat nur etwas gedauert...Zeitstempel ist aber OK

Vielen Dank für eure Hilfe und Unterstützung.

Gruß,

hexbsc