FROM bei EINGEHENDEN Mails ändern

[KoshNaranek]

Hallo.

Gibt es eine EINFACHE Möglichkeit, mittels Agent/Script was zu bauen, dass bei allen eingehenden Mails (einer Mailbox), die von "vorname.nachname@de.firma.com" kommen, das "@de.firma.com" durch "@firma.com" ersetzt wird, damit ein angehängtes System (IMAP) die "richtige" Adresse erkennt?

Mir schwebt da so was vor
ich schreib einfach mal spaghetti-code was ich meine
Notes-Script ist leider nicht so meins... in PHP würde das grob so aussehen
:
Bei eingehender Mail
---
//FROM aus Document auslesen
$From=Document.From
if (substring($From,-14)=="@de.firma.com") {
    $From=substring($From,0,len($From)-14)."@firma.com";
    //FROM in Document zurück schreiben
   Document.From=$From
   }

Es geht darum, dass ein mailverarbeitendes System nur eine Emailadresse vergleichen kann und nicht per LDAP oder sonstwie an die Aliases kommt. Bei dem entsprechenden Postfach würde ich dann einfach versuchen, "das" ein zu bauen.

Wenn mir das jemand in Lotus Script übersetzen und mir sagen könnte, wie ich den Agenten zusammen klicken muss, wäre das natürlich Super-Klasse ;-)

[Driri]

Via Agent in der Mailbox hast Du da keine Chance. Dafür ist der Router zu schnell.

Du müßtest also entweder irgendwie die Mails zur Verarbeitung umrouten, bearbeiten lassen und dann wieder dem Router übergeben oder Du greifst auf Tools zurück, die so etwas auch direkt in der Mailbox des Servers können (z.B. iQSuite von GROUP).

[KoshNaranek]

Hi - danke erstmal... =)
nicht die mail.box(en) auf dem Server.
Die Mailbox des Users ... in diesem Fall "User Helpdesk" ;-)

Da hängt ein TopDESK per IMAP dahinter - das kann aber halt die Aliases nicht abfragen und hat nur 1 Feld für Email-Adresse.
Das "verstubbeln" des "FROM" macht schon das SMTP-Gateway unsere Mama für uns - Es werden nämlich ALLE Header umgestrickt, statt nur das "TO". Was ich hier versuche, ist das wieder einzurenken, wenn es über das Internet hier rein rauscht. Die Berrys etc. schicken ja leider "außen rum". Da jetzt noch einen SMTP-Linux-Eumel dazwischen zu stöpseln auf dem ein Script die Header wieder hübsch macht wäre etwas zu viel Aufwand für diese "kleine" Unbill =)

[Driri]

Ok, das würde ich dann aber einfach per @-Formel erledigen.

_domalt := "@de.firma.com";
_domneu := "@firma.com";
@ReplaceSubstring(@LowerCase(From);_domalt;_domneu)

[KoshNaranek]

schon mal sehr schön =) -
geht auch in php mit ereg_replace etwas "leichter", als abzählen - war ja schon spät - da laufe ich nur noch auf php3 ;-)

ich muß das "From" ja erst mal aus der Mail rauspicken, ersetzen und das veränderte Document wieder speichern... richtig?

Designer-Hilfe: ReplaceItemValue method - extended Class syntax - aber die Beispiele da sind ja nicht gerade praxisnah und sprechend...

bin ich denn da überhaupt richtig?

Wäre das mit

_domalt := "@de.firma.com";
_domneu := "@firma.com";
@ReplaceSubstring(@LowerCase(doc.From);_domalt;_domneu)

schon direkt lauffähig oder muß ich da erst noch was "Dim"men? Bis jetzt macht das Script nüx - nicht mal einen Fehler, wenn eine neue Mail kommt.

Habe es jetzt mal auf "aus dem Menü" gestellt. probiert... da rennt ein Balken durch aber die Mail bleibt unverändert...

[ascabg]

Somit bewegst Du Dich im Script-Bereich.

Driri hat die andere Variante genommen mit dem @-Formel-Bereich.

Hier eine kleine Anregung in Bezug auf den Script-Bereich

Code

Sub Initialize
	
Dim ses As New NotesSession
Dim db As NotesDatabase
Dim col As NotesDocumentCollection
Dim doc As NotesDocument

Dim i As Integer
Dim strDomain As String
Dim strAdress As String

Set db = ses.CurrentDatabase
If db.IsOpen Then
	
  Set col = db.UnprocessedDocuments
  If col.Count > 0 Then
	
    For i = 1 To col.Count
      Set doc = col.GetNthDocument(i)
      If Not (doc Is Nothing) Then
        strDomain = Strright(Lcase(Trim(doc.GetItemValue("Form")(0))), "@")
        strAdress = Strleft(Trim(doc.GetItemValue("From")(0)), "@")
        If strDomain = "de.firma.com" Then
          strDomain = Strright(strDomain, ".")
          Call doc.ReplaceItemValue("From", strAdress & "@" & strDomain)
          Call doc.Save(True, False, False)
        End If
      End If
    Next			
  End If
	
End If
	
End Sub

Der Code hat keinen Anspruch auf Vollstaendigkeit, zumal es keine Fehlerbehandlung gibt.

Aber grob gesagt den Code in einen Agenten kopiert und den Agenten so eingestellt, dass er dann laeuft, wenn ein neues Mail eingeht.


Andreas

[KoshNaranek]

Ah... hatte erst jetzt Zeit zum basteln.

Vielen Lieben Dank an acabg.
Ich habe dein Script etwas umgeschrieben. Irgendwie wollte er die Domain nicht rausrücken.
Jetzt parke ich die Adresse in einem String zwischen ... alles FAST Schick

Code

Sub Initialize
	
	Dim ses As New NotesSession
	Dim db As NotesDatabase
	Dim col As NotesDocumentCollection
	Dim doc As NotesDocument
	
	Dim i As Integer
	Dim strDomain As String
	Dim strAdress As String
	Dim strMadresse As String
	
	Set db = ses.CurrentDatabase
	If db.IsOpen Then
		
		Set col = db.UnprocessedDocuments
		If col.Count > 0 Then
			
			For i = 1 To col.Count
				Set doc = col.GetNthDocument(i)
				If Not (doc Is Nothing) Then
					strMadresse=doc.GetItemValue("From")(0)					
'					Messagebox strMadresse					
					strDomain = Strright(strMadresse, "@")
					strAdress = Strleft(strMadresse, "@")
'					Messagebox strAdress
'					Messagebox strDomain
					If Trim(Lcase(strDomain)) = "de.firma.com" Then
						strDomain = "firma.com"
'						Messagebox "Neu: " & Trim(strAdress) & "@" & Trim(strDomain)
						Call doc.ReplaceItemValue("From", strAdress & "@" & strDomain)
						Call doc.Save(True, False, False)
					End If
				End If
			Next			
		End If
		
	End If
	
End Sub

Es dauert ca. 2 Minuten, bis die Mail NACH dem Eingang umgestrickt wird... kann man das evtl. beschleunigen? Sonst holt es der IMAP-Client ggf. schon ab, bevor die Adresse berichtigt wurde...

[koehlerbv]

Die maximale Beschleunigung, die Du erreichen kannst, bekommst Du über die NOTES.INI-Einstellungen
AMGR_NEWMAILAGENTMININTERVAL=1
AMGR_NEWMAILEVENTDELAY=1

Mehr geht nicht - ansonsten gilt (wie üblich): "'Sofort' ist, wenn der Domino Zeit dafür hat!".

Wenn es dermassen kritisch ist, müsstest Du Dir wirklich einen Hook schreiben (lassen), der schon auf die MAIL.BOX des Dominos zugreift, bevor irgendetwas passiert.

Bernhard

PS: Ich würde vorher aber alles ausreizen, was diesen Adress-Verbiege-Stunt obsolet machen würde ...

[KoshNaranek]

...ich würde das auch gerne ausreitzen.
Kritisch ist es nicht - nur nervig Schreib mal eine Regel, wenn jeder Anwender 3 - 4 Adressen hat.

Leider habe ich auf die Adressen, die da rein kommen erstmal keinen Einfluss.
Rein kommt alles in Paris - da steht eine Strickliesel, die ALLE Header nach ersetztbaren Email-Adressen durchsucht und ersetzt und die Mail dann auf die anderen Länder verteilt.

Ich könnte hier natürlich noch eine "Gegen-Strickliesel" dazwischen stellen - aber nur dafür ist mir der Aufwand zu groß - auch wenn ich dann wahrscheinlich bei unseren GF's einen Stein in Brett hätte - die verwirrt die Sache mit den "mehr als eine Emailadresse" doch erheblich   - mind. 2 mal die Woche kommt die Frage, ob man das "de." nach draußen auch sieht, wenn wir Mails versenden =)