Hallo,
ich arbeite gerade an einem Skript, um aus Excel heraus E-Mails zu generieren (und vor dem Senden manuell kontrollieren, ggf. nachbearbeiten) und würde gern die Absenderadresse anders festlegen. Das Standardpostfach trägt bei mir meinen Nutzernamen "Vorname.Nachname@domain.de", allerdings benötige ich den Versand aus einer Sammeladresse "info@domain.de".
Gibt es dafür irgendwo eine Möglichkeit?
Aktuell verwendetes Skript
Sub SendNotesMail2(sRecipient As String, sSubject As String)
On Error Resume Next
'# MAIL VORBEREITEN
'Variablen Dimensionieren, die benötigt werden, um das Mail zu senden
Dim mRows As Integer
Dim mCols As Long
Dim Maildb As Object 'Die Datenbank
Dim UserName As String 'Der Benutzername
Dim MailDbName As String 'Der Datenbankname
Dim MailDoc As Object 'Das Maildokument selbst
Dim Session As Object 'Die Notes Session
Dim EmbedObj As Object 'Ein eingebettetes Objekt (Anhang)
Dim ClipBoard As DataObject
Dim SaveIt As Boolean
Dim BodyText As String
Dim filename As String
Dim numrows As Long
Dim numcols As Integer
Dim r As Long
Dim c As Integer
Dim data
Dim exprng As Range
Set exprng = Selection
numcols = exprng.Columns.Count
numrows = exprng.Rows.Count
'Vorgabetext, der gesendet werden soll
BodyText = "Test. Hier soll später der richtige Text stehen."
'Die Session starten
Set Session = CreateObject("Notes.NotesSession")
UserName = Session.UserName
'Datenbank öffnen
Set Maildb = Session.GETDATABASE("Mailserver", MailDbName)
If Maildb.IsOpen = True Then
'Fertig zum mailen!
Else
Maildb.OPENMAIL
End If
'Ein neues Maildokument erstellen
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
MailDoc.sendto = sRecipient
MailDoc.Subject = sSubject
MailDoc.body = BodyText
MailDoc.SAVEMESSAGEONSEND = SaveIt
Dim Workspace As Object
Set Workspace = CreateObject("Notes.NOTESUIWORKSPACE")
Call Workspace.EDITDOCUMENT(True, MailDoc).GOTOFIELD("Body")
'Aufräumen
Set Maildb = Nothing
Set MailDoc = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
End Sub
Vielen Dank für eure Hilfe schon im Voraus
Notes ist -im Gegensatz zu Outlook- SICHER.
Wenn Du Code schreibst, der in Deinem Namen läuft (oder dem Namen des Servers, oder wem auch immer), dann ist immer der, der den Code geschrieben hat der Absender, und eben NICHT die Mailbox aus der die Mail versendet wurde...
Deshalb ist auch die Verwendung eines "existierenden" anderen Absenders ein "Faken" -> Daher meine erste Antwort.
Und ob Du das akzeptierst oder nicht, ist Notes eigentlich relativ egal...
Ach ja: Wenn Du das "Fach" info öffnest und manuell versendest, dann schau Dir doch mal das Ergebnis beim Empfänger an...
Aber wenn Dir GENAU das Ergebnis (Absender: Info, Gesendet von Dir) reicht, dann füge einfach vor dieser Zeile:
Set Maildb = Session.GETDATABASE("Mailserver", MailDbName)
MailDbName = "PfadZurInfo.nsf"