Mit @MailSend inkl. Parameter wirst du da kein Glück haben. Dort kann man keinen Absender eintragen.
Verwende doch lieber Lotus Script...
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
doc.Form = "Memo"
doc.From = "Mein@EMail.de"
doc.SendTo = "Empfaenger@EMail.de"
doc.Subject = "Here's the document you wanted"
Call doc.Send( False )
Nope. NotesDocument.Send macht Dir Dein doc.From wieder kaputt und setzt den Signer des Agents als Absender ein.
Bernhard
Womit Du in solchen Fällen arbeiten kannst, sind Principal, INetFrom, ReplyTo, ...
Hallo, ich mache das mit dem Feld ReplyTo, dann funktioniert wenigstens das antworten auf diese Mail.
MailDoc.ReplyTo = "name@domäne.de"
Thomas
1) How to change the apparent sender of the agent generated mail.
Information on three different ways to do it with code samples has been moved to the "Troubleshooting agents" article.
http://www-10.lotus.com/ldd/today.nsf/62f62847467a8f78052568a80055b380/ef1565a0b202808285256c94004fd0fb?OpenDocument&Highlight=0,kadashevich
How can I change the apparent sender of agent generated mail?
Sometimes you need to generate mail from an identity different from your own. For example, you may want to generate mail from the user Domino Administrator. There are three ways to do this:
* Create a special ID for user Domino Administrator and sign the agent with that ID.
* Use the Principal field in the agent code to override the From field.
* Use the Run on behalf of field (new in Notes/Domino 6).
The first method is the simplest because it requires no coding. It does, however, involve licensing and maintaining IDs. The second method is more flexible, but requires some coding. You don't need any special rights, but the information about the original sender is maintained for auditing purposes. By default, the mail template displays the original sender's name in the sent by field under the From field. There are three ways to specify the Principal field:
* doc.Principal="Joe User/Org@NotesDomain" where Joe User/Org has a Person record with an InternetAddress of your choosing. (Note that the string @NotesDomain must be present.)
* doc.Principal="CN=Joe User/O=Org" where Joe User/Org has a Person record with an InternetAddress of your choosing.
* doc.Principal=User@acme.org@NotesDomain <mailto:User@acem.org@NotesDomain>. (Note that the string @NotesDomain must be present.)
If you only care about the ReplyTo address, you can use it instead of the Principal, which changes both the From and ReplyTo:
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim item As NotesItem
Dim ToWho(40) As String
Dim FirstName(40) As String
Dim Msg As String
Set db = session.CurrentDatabase
Set doc = New notesdocument(db)
'*******************************************************************
Count = 30
ToWho(0)="joe@yahoo.com"
FirstName(0)="Joe"
ToWho(1) = "teresa@yahoo.com"
FirstName(1)="Teresa"
<more initialization code removed>
doc.Principal = "julie@yahoo.com@NotesDomain"
doc.Form = "Memo"
doc.Subject=" Happy Holidays!"
For i=0 To count
Greet = "Hi " +FirstName(i) +", Happy Holidays!"
Msg1 ="additional text"
doc.Body=Greet + Msg1
Print toWho(i)
Call doc.Send(True,toWho(i))
Next
As we show in the preceding code, @NotesDomain is a string that is expected in the syntax. Omitting this is often the problem when people report that the Principal field is not working.
The third method (Run on behalf of) is new to Notes/Domino 6. This field in Agent Properties allows one user to run an agent as though it were invoked by another user. You need special rights to run agents on behalf of other users. These rights are controlled through the "Sign agents to run on behalf of someone else" field in the Security tab of the Server document. If they have this permission, mail appears to come from the name specified in the Run on behalf of field. This is a very high level of rights and should only be granted carefully, as it allows one user to run agents on behalf of other users, including having their ACL rights when accessing databases.
The first method is the simplest because it requires no coding. It does, however, involve licensing and maintaining IDs. --->>> Create a special ID for user Domino Administrator and sign the agent with that ID.
1.) Darfst Du Notes-IDs erzeugen?
2.) Weisst Du, wie man dann damit umzugehen hat, um das Ziel zu erreichen?
Offensichtlich können nicht beide Fragen mit "ja" beantwortet werden, sonst würdest Du nicht von uns erwarten, dass wir Deine Arbeit machen.
Das soll als Erklärung dienen, warum hier niemand mehr antwortet: Du willst nicht lernen, Du willst eine schnelle Lösung (= fertige Lösung von anderen) - das funktioniert nicht.
The third method (Run on behalf of) is new to Notes/Domino 6. This field in Agent Properties allows one user to run an agent as though it were invoked by another user. You need special rights to run agents on behalf of other users.
Sub Initialize
Dim session As New NotesSession
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
doc.Form = "Memo"
doc.SendTo = "info@meinedomain.de"
doc.Subject = "Das ist die Betreffzeile"
doc.Body = "Test"
doc.Principal="Mein toller Absender <info@meinedomain.de@meinenotesdomain.org>"
Call doc.Send( False )
End Subdoc.Body = anderesdoc.Feld1 (0) & Chr$ (10) & anderesdoc.Feld2 (0)notesagent.documentcontext oder so ähnl.
Wie kann ich denn genau auf das dokument zugreifen das der Agent dann in diesem Moment in Zugriff hat?
Was muss dann in deinem Beispiel:Codedoc.Body = anderesdoc.Feld1 (0) & Chr$ (10) & anderesdoc.Feld2 (0)
an die Stelle "anderesdoc..." ?
Gruß,
Ralf.
Hallo Bernhard,
ich habe nicht vor die Script Sparache zu lernen, ich wollte nur ein Problem lösen. Wenn das per Script zu aufwändig ist, fällt das eben flach. Muss doch noch eine andere Möglichkeit geben...
Gruß,
Ralf.
und es hätte heissen müssen:
notessession.Documentcontext (Bernhard, du wirst alt! ;D ;D )
Willst Du - oder doch nicht?
Sub Initialize
Dim session As NotesSession
Set session = New NotesSession
Dim doc As NotesDocument
Set doc = session.DocumentContext
Print "<H2>" + doc.Subject(0) + "</H2>"
End SubAlso ganz ehrlich, ich brauche ein wenig mehr Input hier:
"notessession.Documentcontext"
http://lmgtfy.com/?q=notessession.Documentcontext
Hallo Bernhard,Zitat1.) Darfst Du Notes-IDs erzeugen?
Ja, ich darf alles, ich bin der Chef hier...Zitat2.) Weisst Du, wie man dann damit umzugehen hat, um das Ziel zu erreichen?
Mit was, mit der Notes-ID?ZitatOffensichtlich können nicht beide Fragen mit "ja" beantwortet werden, sonst würdest Du nicht von uns erwarten, dass wir Deine Arbeit machen.
Ich habe doch nur um einen Tipp gebeten nicht darum, dass jemand meine Arbeit übernimmt.ZitatDas soll als Erklärung dienen, warum hier niemand mehr antwortet: Du willst nicht lernen, Du willst eine schnelle Lösung (= fertige Lösung von anderen) - das funktioniert nicht.
Dass ich nicht lernen will ist nicht richtig. Mein letzer Domino Admin Kurs liegt zwar ein paar Jahre zurück, aber ganz im Dunkeln fische ich nicht. Ausserdem habe ich 20 IT Jahre auf dem Buckel. Aber ich habe mittlerweile andere Dinge zu tun und mir würde es reichen, wenn mich jemand in die richtige Richtung schubst.
....
Deshalb: ich brauch nur n' Tipp, that's all...
So,
ein Teil funktioniert schon mal, der richtige Absender ist drin Roll Eyes
Es funktioniert (bei mir) wohl nur per Script, ich habe das so gemacht:
Code:
Sub Initialize
Dim session As New NotesSession
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
doc.Form = "Memo"
doc.SendTo = "info@meinedomain.de"
doc.Subject = "Das ist die Betreffzeile"
doc.Body = "Test"
doc.Principal="Mein toller Absender <info@meinedomain.de@meinenotesdomain.org>"
Call doc.Send( False )
End Sub
Simple Frage für Euch Sepzialisten:
Wie kann ich dem doc.Body den Inhalt von zwei Feldern des Documents zuweisen???
Gruß,
Ralf.
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
Sub Initialize
Dim session As New NotesSession
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
Dim currsession As NotesSession
Set currsession = New NotesSession
Dim currdoc As NotesDocument
Set currdoc = session.DocumentContext
doc.Form = "Memo"
doc.SendTo = currdoc.FeldIndemDieMailAdresseSteht (0)
doc.Subject = "Hier der Betreff"
doc.Body = currdoc.FeldIndemDasStehtWasInDenBodySoll (0)
doc.Principal="Ich werde der Beste Notes Script Programmierer <info@scriptprofi.de@meinenotesdomain.org>"
Call doc.Send( False )
End Sub
'wenn du zeitgesteuert arbeitest, kannst du nicht den den in der View selektierten Dokumenten arbeiten
'wenn du die Doks selektieren willst, sieh dir die klasse uiview an!
Nein, ich start den Agenten zeitgesteuert, zum Testen steht dieser auf 5 Minuten. Und er selektiert schön brav die zwei Dokumente die im entsprechenden Feld den gesuchten Wert haben.
Nein, ich start den Agenten zeitgesteuert, zum Testen steht dieser auf 5 Minuten. Und er selektiert schön brav die zwei Dokumente die im entsprechenden Feld den gesuchten Wert haben.
@MailSend(From;"";"";"Antwort: " + Subject;"";"
Test
");
SELECT @All
1#Sub Initialize
2#Dim session As New NotesSession
3#Set db = session.CurrentDatabase
4#Set doc = New NotesDocument( db )
5#Dim currsession As NotesSession
6#Set currsession = New NotesSession
7#Dim currdoc As NotesDocument
8#Set currdoc = session.DocumentContext
9#doc.Form = "Memo"
10#doc.SendTo =""
11#doc.Subject = ""
12#doc.Body = Test
13#doc.Principal="Absender@firma.com"
14#Call doc.Send( False )
End Sub