Domino 9 und frühere Versionen > ND9: Entwicklung

Mail mit Excel generieren: Bestimmte Absenderadresse benötigt

(1/2) > >>

Chirin:
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

--- Code: ---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
--- Ende Code ---

Vielen Dank für eure Hilfe schon im Voraus

Tode:
hier gehts zur Antwort

Chirin:
Ich fürchte ich verstehe dich nicht.
Es geht mir nicht darum eine andere Adresse zu faken, sondern ein real existierendes anderes Ausgangspostfach für den Mailversand zu benutzen.

Im Unternehmen haben die Mitarbeiter Zugriff auf verschiedene Postfächer, ein persönliches und verschiedene, entpersonalisierte Postfächer.
Eines davon (info@) soll für den Versand dieser Mails genutzt werden.

Bisher kann ich das Fach info öffnen und die Mails von Hand schreiben und schicken. Allerdings möchte ich eben das automatisieren.
Es fällt mir schwer zu akzeptieren, dass zwar zB in Outlook, aber nicht in Lotus Notes funktionieren soll, wenn ich doch Zugriff auf
das entsprechende Postfach habe.

ascabg:
Hallo,

Und was kommt beim Empfaenger an, wenn dein Mitarbeiter ein mail aus dem "entpersonalisiertem" Postfach sendet?
(Was kommt bei einem "internen" Empfaenger an?)

Und mit welchem Benutzer meldet sich der Anwender den im Postfaach "info@..." an, wenn er von ier ein Mail senden?


Andreas

P.S.:
Outlook ist nicht Notes.
Also nicht alles was in Outlook funktioniert, muss auch in Notes so funktionieren.

Tode:
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:

--- Code: ---Set Maildb = Session.GETDATABASE("Mailserver", MailDbName)
--- Ende Code ---
diese Zeile ein:

--- Code: ---MailDbName = "PfadZurInfo.nsf"
--- Ende Code ---

Navigation

[0] Themen-Index

[#] Nächste Seite