[Automation] Postkorb als Absender

[sick bastard]

Hallo!

Ich möchte per Automation eine eMail versenden, die den Postkorb als Absender hat. Wenn ich ein Mail allerdings per Automation versende, steht immer der aktuell im geöffneten Notes angemeldete Benutzer als Absender.

Der Postkorb bzw. die Datenbank öffne ich richtig. Hier der Source:


notesDoc = notesDB.CREATEDOCUMENT
With notesDoc
.Form = "Memo"
.subject = "Schnittstelle " & DateTime.Now.ToString("dd.MM.yy")
.sendto = txtReceiver.Lines
.Body = Text1 & vbCrLf & Text2 & vbCrLf & Text3 & vbCrLf & Text4 & vbCrLf & Text5 & vbCrLf & Text6 & vbCrLf _
& Text7 & vbCrLf & Text8 & vbCrLf & Text9 & vbCrLf & Text10 & vbCrLf & Text11 & vbCrLf 'Text
'.DefaultMailSaveOption = 0
'.MailSaveOption = 0
.DeliveryReport = "B"
.Importance = "2"
'.logo = "Barmenia"
.SAVEMESSAGEONSEND = True ' bei True wird ein Exemplar in Notes in Gesendet gestellt
'.ReturnReceipt = "1"
'.logo = "Barmenia"
'.SIGN = "1"
'.encrypt ="0"
'.Principal = session.UserName
'.viewicon ="74"
'.from = session.UserName
'.SaveOptions = 0
'.SecureMail = ""
'.SenderTag = "F"
''''''''''''''''''''''''''''' Dateianhang''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Const embed_ATT = 1454
rtItem = .CREATERICHTEXTITEM("DATEIANHANG")
EmbeddedObject = rtItem.EMBEDOBJECT(embed_ATT, "", anhang1, "DATEIANHANG")
EmbeddedObject = rtItem.EMBEDOBJECT(embed_ATT, "", anhang2, "DATEIANHANG")
End With


Danke!

[Sebastian Lewers]

Hallo!

Ich möchte per Automation eine eMail versenden, die den Postkorb als Absender hat. Wenn ich ein Mail allerdings per Automation versende, steht immer der aktuell im geöffneten Notes angemeldete Benutzer als Absender.

Der Postkorb bzw. die Datenbank öffne ich richtig. Hier der Source:


...


Danke!

Definiere Postkorb als Absender ???

Welche Notes Version nutzt Du ?

Würde sich das ganze nicht auch über Regeln/Rules lösen lassen ?



Sorry für die späte Antwort ;-)


Gruß
SESE

[sick bastard]

Definition Postkorb: Naja, eigentlich ist ein Postkorb nichts anderes wie eine Datenbank. Die Verbindung zum Postkorb wird richtig hergestellt:


notesDB = notesObj.GETDATABASE(servername, "Postkorb\pk027.nsf")


Wenn ich in weiterer Folge mit obiger notesDB ein eMail generiere und dieses sende, dann wird das Mail auch richtig im "Gesendet"-Ordner des Postkorbes abgelegt, allerdings scheint als Absender nicht wie gewünscht die eMail-Adresse des Postkorb (etwa "reports@mycompany.at" auf), sondern jene der aktuellen Session/des aktuellen Benutzers (etwa "sick.bastard@mycompany.at")

@Version: Lotus Notes R5

@Regeln/Rules: Da ich gerade mal obiges Konstrukt für den autom. Mailversand aus div. Anwendungen implementiert habe, kenne ich mich mit Notes nicht weiter aus. Was meinst du mit Regeln?

@spät gemeldet: Ich bin eigentlich davon ausgegangen, dass hier keiner (mehr) Ahnung von Lotus Notes hat...

[Sebastian Lewers]

...


notesDoc = notesDB.CREATEDOCUMENT
With notesDoc
.Form = "Memo"
.subject = "Schnittstelle " & DateTime.Now.ToString("dd.MM.yy")
.sendto = txtReceiver.Lines
.From = session.UserName

....

[SIZE=2]With



Evtl. funktioniert es ganz einfach in dem Du den Wert "From" änderst !!!

Wenn Du Dir die Dokumente im Posteingang ansiehst, dann steht der Absender immmer im Feld "From" !

Gruß
SESE

[sick bastard]

Das ist es nicht! Habe ich bereits versucht!
Im "Gesendet"-Ordner des Postkorbs scheint die eMail der "From"-Eigenschaft auf, allerdings sieht der Empfänger nicht diese, sondern jene der aktuellen Session, unabhängig davon, was ich .From zuweise!

[Sebastian Lewers]

Schade.

Wie ich an Deinem Code erkenne hast Du 'Principal' auch bereits getestet !

[sick bastard]

Mit "Principal" funktioniert es!
Ich dachte, dass hätte ich als erstes versucht, aber anscheinend doch nicht...