Hilfe aber ich krieg das K....n!
wollte ma "eben schnell" eine eingehende Mail per script 1 zu eins (also auch mit Attachments an der richtigen Stelle) weiterleiten.
Geht aber nicht über Regel, falls Ihr da direkt so etwas vorschlagt,. Muss per Script sein, weil der Agent noch mehr macht. Das "Mehr" also die 99 % gehen schon. Nur diese verdammte Formatierung der versendeten Nachricht ist schlicht eine Zumutung.
Keine Zeilenumbrüche wie im Original und das Attachment ebenfalls ohne Zeilenumbruch direkt hinter der Signatur.
EDIT:
Mails, die ich aus dem Internet erhalte (also SMTP) sehen noch bescheidener aus. Hier ist jedes einzelne Wort einfach hintereinander geschrieben und am Ende kommt das Attachment. Bei Mails, die ich mir zum Testen selber gesendet habe, sieht es etwas humaner aus. Aber acuh hier würde ich gerne das Attachment entweder ganz Oben VOR dem gesamten Text oder eben ganz unten haben.
Hier der Verursacher meiner schlechten laune
Set MailDocSubj = MailDoc.GetFirstItem("Subject")
Set Maildoc2 = New NotesDocument( db )
maildoc2.Form = "Memo"
maildoc2.Subject = "### Incoming Invoice ### " & MailDocSubj.text
Set rtitem2 = MailDoc2.CreateRichTextItem("Body")
Call rtitem2.AppendRTItem( rtitem )
Maildoc2.SendTo = RecipientTest
Call Maildoc2.Send(False)
Nochmal EDIT
Mir würde es reichen, wenn LotusScript mir bei PLATZHALTER das Object was bereits in rtItem liegt liefern könnte
###############################################
If ( o.Type = EMBED_ATTACHMENT ) Then
Set object = rtitem.GetEmbeddedObject(CStr(o.Name))
Call rtitem2.EmbedObject( EMBED_ATTACHMENT, "", PLATZHALTER)
Call rtItem2.AddNewLine(1)
End If
################################################
Besten Dank für Eure Hilfe
Gruß
fsinani