Principal funktioniert nicht!

[nocut]

Hallo!

Nachdem ich in den letzten 2 Tagen rund 10 Stunden nach einer Lösung für mein Problem gesucht habe, probiere ich es nun bei euch.

Aber vorerst will ich mich kurz vorstellen, da ich ja neu hier bin. Komme aus dem Bankensektor und habe demnach mit Programmierung nicht viel zu tun. Bastle aber gerne an Möglichkeiten, die einem, den ein oder anderen Arbeitsschritt ersparen.

Was war mein Ziel?

In Excel eine E-mail mit Screenshot & Attachement an eine Person via Lotus Notes zu senden. Das bekomme "ich" ja hin. Ich hänge aber bei einer Sache

Versand nicht über den eigenen Postkorb, sondern über Gruppenpostkorb.

Es ist mir nicht möglich dies zu bewerkstelligen, daher hab ich den Workaround "PRINCIPAL"

Ich habe alle möglichen Varianten durch. Der Absender bin immer ich - ich kann ihn nicht verändern. Mit dem Befehl .From geht die Mail gar nicht raus. Dürfte duch den LN-Admin gesperrt sein.


Dim strTo As Variant
Dim strPath As String
Dim EmbedObj As Object 'The embedded object (Attachment)
Dim AttachME As Object 'The attachment richtextfile object
Dim Workspace As Object
Dim uidoc As Object

Set session = CreateObject("Notes.NotesSession")
Set db = session.GetDatabase("", "")
If db.IsOpen = False Then db.OPENMAIL

Set doc = db.CreateDocument
With doc
    .form = "Memo"
    .SendTo = "huber@gmail.com"
    .Subject = "Dies ist ein Test"
    .Principal = "Mayer <mayer@gmail.com@NotesDomain>"
    .InetFrom = "Mayer <mayer@gmail.com>"
    .Sign = "0"
    .SaveMessageOnSend = True
   
    Set AttachME = doc.CreateRichTextItem("Attachment")
    Set EmbedObj = AttachME.EmbedObject(1454, "", "K:\test.txt", "") 'Hier der Anhang
    .PostedDate = Now()
End With

Set Workspace = CreateObject("Notes.NotesUIWorkspace")
Set uidoc = Workspace.EDITDOCUMENT(True, doc)

With uidoc
    .GOTOFIELD ("Body")
    Selection.Copy 'oder dein Bereich
    .Paste
    .Send
    .Close
End With

Set EmbedObj = Nothing
Set AttachME = Nothing
Set uidoc = Nothing
Set Workspace = Nothing
Set db = Nothing
Set doc = Nothing
Set session = Nothing

End Sub



Irgendwelche Ideen? Principal funktioniert an und für sich bei uns in der Firma. Habe ein anderes script, bei dem das geht.

Ich denke es hat mit dem NotesUIWorkspace / uidoc Abschnitt zu tun. Wenn ich das weglasse, geht es, wenn mich nicht alles täuscht. Probiere das morgen noch aus.

LG

Alex

[koehlerbv]

Inwieweit Principal Anwendung findet, hängt vom empfangenden MUA ab. Hierauf kann man keinen Einfluss nehmen - manche nehmen das sogar als angezeigten Absender, andere verwenden es (korrekt) als "gesendet von" in Verbindung mit "aber geschrieben von" (dem realen From), andere unterdrücken es.
Mit Principal zu hantieren, ist also vergeudete Zeit.

Notes verhindert im Bereich der vorgesehenen Bordmittel, den Absender zu faken. Es gibt aber natürlich (ganz andere) Wege, aber die sollten jeweils mit den zuständigen Admins abgeklärt werden.

Frage: Warum machst Du das eigentlich mit Excel? Warum erledigst Du das nicht mit dem Notes-Client (und greifst - so erforderlich - auf Excel-Daten zu?).

Bernhard

[nocut]

Hallo Bernhard,

Alles klar! ich dachte, dass wenn die E-Mail mal mit dem richtig Absender raus ist, muss sie überall richtig ankommen. Dann hat sich das Projekt wohl für mich erledigt.

Voraussetzung ist nämlich, dass der Empfänger bei einer Antwort an den Gruppenposteingang schreibt.

Zur Frage - meine Idee war mehrere Dateien, an mehrere Empfänger per Knopfdruck zu versenden.

Derzeit muss ich eine Mail erstellen. Das Attachment anhängen und versenden. Das ganze 5 mal.

Die Zeitersparnis ist kaum der Rede wert. Aber ich dachte mir halt - wenn es einfacher geht, warum nicht? Aber so simpel ist die Umsetzung halt nicht..

[Peter Klett]

Versuch's mal mit ReplyTo.

Wir tragen in solchen Mails die Mailadresse unseres Postfaches in das Feld ReplyTo ein, wenn der Empfänger dann auf die Mail antwortet, gelangt die in das Postfach. Natürlich ist der sichtbare Absender der User, der die Mail erstellt hat.

[koehlerbv]

Auch das muss nicht zwingend von allen Systemen unterstützt werden, Peter.

Bernhard

[Peter Klett]

@Bernhard: Natürlich nicht, aber wir haben das auch mal mit ein paar Internetmailadressen versucht, da hatte es funktioniert. Wir mailen ansonsten in dem Umfeld ausschließlich über Notes.

@Alex: Wenn Du das manuell über ein Gruppenpostfach machst und es dort funktioniert, wie sehen denn dort die Mails beim Empfänger bzgl. der Rücksendeadresse aus? Welche Felder sind mit welcher Adresse gefüllt?

[nocut]

@Bernhard

Wenn ich das mal ganz  blind abtippen darf:

VON: Gruppen-Mailadresse
AN: EmpfängerAdresse
GESENDET VON: meine Email Adresse

Wenn der Empfänger auf antworten geht, schreibt er an die Gruppen-Mailadresse.

Es hat aber sowieso etwas mit dem Code. Weder ReplyTo noch DisplayFrom, noch SendFrom verändert etwas.

Lg

Alex

[Tode]

Das Thema ist nicht ganz neu, will trotzdem noch meinen Senf dazu geben: die Felder from und orincipal und wie sie alle heissen, werden vom router immer neu geschrieben. Zum teil kann man das mit folgendem Konstrukt vermeiden:

Statt .From = "test@test.de" verwendet man
. From = "test@test.de@NOTESDOMAIN"

Mit NOTESDOMAIN= der name eurer Notes domäne. Das ganze in allen Abswnderfeldern machen, weil ich grade nicht weiss, welche vom router dann tatsächlich verwendet werden. Nachzulesen ist das ganze auch noch mal in Julie Kada.... 's Agent FAQ, zu finden bei ibm oder per google. Ist zwar recht alt, funktioniert aber immer noch.