Hallo Domino-Gemeinde,
ich hätte mal eine Frage:
ich versenden Mails automatisch per Agent (das funktioniert auch), nur der Absender der Mail ist Domino Admin ... ich kann den auf Teufel komm raus nicht ändern.
Hat jmd einen Tipp?
Quellcode:
Function MailSend (Empfaenger As String, TrackingNummer As String, Referenz As String, Kundennummer As String, Kundenname As String)
Dim se As New NotesSession
Dim db As NotesDatabase
Dim mail As NotesDocument
Dim TextItem As NotesRichTextItem
Dim TextStyle As NotesRichTextStyle
Dim Files As String
Set db = se.CurrentDatabase
'Neues Dokument erstellen
Set mail = New NotesDocument(db)
'Absender
Call mail.ReplaceItemValue( "From", "distorder@abc.de" )
'Empfaenger
Call mail.ReplaceItemValue("sendto", Empfaenger)