Das Notes Forum

Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: hexbsc am 01.04.14 - 16:01:20

Titel: per Excel VBA Mail über zweiten Account versenden
Beitrag von: hexbsc am 01.04.14 - 16:01:20

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

Titel: Re: per Excel VBA Mail über zweiten Account versenden
Beitrag von: ascabg am 01.04.14 - 16:28:13

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

Titel: Re: per Excel VBA Mail über zweiten Account versenden
Beitrag von: hexbsc am 01.04.14 - 16:43:45

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

Titel: Re: per Excel VBA Mail über zweiten Account versenden
Beitrag von: Peter Klett am 01.04.14 - 16:53:41

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

Titel: Re: per Excel VBA Mail über zweiten Account versenden
Beitrag von: hexbsc am 01.04.14 - 17:05:39

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

Titel: Re: per Excel VBA Mail über zweiten Account versenden
Beitrag von: Andrew Harder am 01.04.14 - 20:51:23

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.

Titel: Re: per Excel VBA Mail über zweiten Account versenden
Beitrag von: hexbsc am 02.04.14 - 15:59:26

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  8)

Gruß,

hexbsc

Titel: Re: per Excel VBA Mail über zweiten Account versenden
Beitrag von: hexbsc am 09.05.14 - 14:07:36

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

Titel: Re: per Excel VBA Mail über zweiten Account versenden
Beitrag von: Tode am 09.05.14 - 14:11:05

Code

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

Die Datenbank liegt ja im Mail- Unterverzeichnis...

Titel: Re: per Excel VBA Mail über zweiten Account versenden
Beitrag von: hexbsc am 09.05.14 - 14:15:36

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

Titel: Re: per Excel VBA Mail über zweiten Account versenden
Beitrag von: Tode am 09.05.14 - 15:56:26

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

Code

server = ""

Titel: Re: per Excel VBA Mail über zweiten Account versenden
Beitrag von: hexbsc am 09.05.14 - 16:59:49

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

Titel: Re: per Excel VBA Mail über zweiten Account versenden
Beitrag von: koehlerbv am 09.05.14 - 17:10:19

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

Titel: Re: per Excel VBA Mail über zweiten Account versenden
Beitrag von: Tode am 09.05.14 - 17:24:57

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

Titel: Re: per Excel VBA Mail über zweiten Account versenden
Beitrag von: hexbsc am 13.05.14 - 13:01:34

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