Domino 9 und frühere Versionen > ND8: Entwicklung

per Excel VBA Mail über zweiten Account versenden

(1/3) > >>

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
--- Ende Code ---

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

Navigation

[0] Themen-Index

[#] Nächste Seite