Das Hauptproblem ist also den E-Mail Absender beliebig setzen zu können.
Standardmäßig wird, wie schon gesagt, der Unterzeichner als Absender gesetzt.
Man kann im Maildokument vor dem Versand ein paar Felder setzen um das ein wenig zu verschönern:
Dim sendas$
sendas$ = "Max Mustermann <m.mustermann@musterweb.de>"
Call docMail.ReplaceItemValue("From", sendas$)
Call docMail.ReplaceItemValue("Principal", sendas$)
Call docMail.ReplaceItemValue("AltPrincipal", sendas$)
Call docMail.ReplaceItemValue("SMTPOriginator", sendas$)
Call docMail.ReplaceItemValue("$Principal", sendas$)
Call docMail.ReplaceItemValue("$AltPrincipal", sendas$)
Call docMail.ReplaceItemValue("SendFrom", sendas$)
Vielleicht reicht dir das ja schon.
Gruß,
Mitch
Sobald du doc.send benutzt ja! Allerdigns wurde auch schon erwähnt, das ein speichern in der "mail.box" dazu führt das es vom mail router versand wird mit den
Parametern die du angegeben hast. Also auch den gewählten Versender.
Auch wenn es als Spam routine bezeichnet wurde, ist dieses vorgehen meiner Ansicht nach nicht wirklich verwerflich.
hab das schon weiter oben im thread gelesen, wie darf man sich das codemäßig vorstellen ?
der entscheidende part in meiner routine schaut derzeit so aus:
If active(0) = "1" Then
Set itemProcessed = doc.AppendItemValue( "NotifyProcessed", 1 )
emailAddress=docSupporter.GetItemValue("NLSupporterEmail")
'docmail.principal = "<ni-service@at.abb.com>< >"
docmail.principal = "ni-service@at.abb.com@ABB_ATABB"
'docmail.Subject="" & SenderEmailSubject(0)
docmail.body=SenderEmailBody(0)
docmail.SendTo=emailAddress(0)
docmail.Send (False)
Call doc.Save( False, True )
Else
End If
wäre "Call docmail.CopyToDatabase( mail1box )"
richtig ? schon klar mail1box gehört deklariert !
Du kannst es direkt in der mail.box erstellen dann sparst du dir das speichern in der aktuellen db und das "rüberschieben". Es sei den du willst es zu archivzwecken aufbewahren.
Was im gegensatz zu send auf jeden Fall enthalten sein muss, ist das Feld "Recipients" gefüllt mit den empfängern der Mail. Zusätzlich zu den gewünschten Feldern SendTo,CopyTo etc.
als Beispiel dafür:
Dim recipients As New NotesItem( maildoc, "Recipients", "" )
Let recipients.IsSummary = True
Call recipients.AppendToTextList( maildoc.GetItemValue( "SendTo" ) )
Call recipients.AppendToTextList( maildoc.GetItemValue( "CopyTo" ) )
Call recipients.AppendToTextList( maildoc.GetItemValue( "BlindCopyTo" ) )
Wie Andreas schon geschrieben hat, darfst du auf keinen fall doc.send benutzten wenn du sie mit einem eigenen Absender benutzen willst.
Gruss
Kai