@ascabg
Danke ascabg nun habe seltsame Phänomene.
- Mit nur Text in der Mail wird es immer als Plaintext gesandt.
- Mit Attachment oder einem Bild etc. drin erscheint mal das Attachment als jpg im Outlook und teils kommt diese Fehlermeldung im Notes Client: "Notes error: Note item not found (Body)
Der jetzige Code ist:
Sub Initialize
'Main Document
Dim dbA As New NotesDatabase ( "SERVER1/XXX/YY", "IT\devmailbox.nsf" )
Dim viewA As NotesView
Dim docA As NotesDocument
Set viewA = dbA.GetView( "Unsend Mails" )
Set docA = viewA.GetFirstDocument
'Sending Document
Dim s As New notessession
Dim dbB As NotesDatabase
Dim Mailbox As NotesDatabase
Dim docB As NotesDocument
Dim item As NotesItem
Set dbB = s.CurrentDatabase
Set Mailbox = s.GetDatabase(dbB.Server, "mail.box")
Set docB = New NotesDocument(Mailbox)
Set item = docA.GetFirstItem("Body")
' Values for sending
docB.SendTo = docA.GetItemValue( "SendTo" )
docB.Recipients = docA.GetItemValue( "SendTo" )
docB.From = "CN=Dev Mailbox/O=XXX/C=YY"
docB.form = "Memo"
docB.Subject = docA.GetItemValue( "Subject" )
Call docB.CopyItem(item, "Body")
' Save and close Docs
Call docA.ReplaceItemValue ("myMailStatus", "is send")
Call docA.save(True, False)
Call docB.save(True, False)
End Sub
Wozu das hier:
Set dbB = s.CurrentDatabase
Set Mailbox = s.GetDatabase(dbB.Server, "mail.box")
Set docB = New NotesDocument(Mailbox)
Die Mail wird im Mailrouter direkt erstellt so das die Notes ID des Benutzers keinen Einfluss darauf hat.
Mit dieser Methode umgeht man das im Mailheader und meistens auch in der irgendetwas vom Absender sichtbar ist.
z.B. hans@mycompany.com soll eine Email als chef@mycompany.com schicken, dies soll natürlich nicht nachvollziehbar sein das er dies nicht selbst gesandt hat / steht auch stellvertretend für sales@, info@, promotion@ etc. Adressen.
Falls man die Mail in der DB erzeugt und dann verschickt so ist im Mailheader immer ersichtlich die Absenderadresse desjenigen der die Mail erstellt hat => also z.B. hans@mycompany.com und nicht chef@mycompany.com.
Es erscheint auch in Outloox XP/2003 immer beim Absender: Diese Nachricht wurde von hans@mycompany.com im Auftrag von chef@mycompany.com gesendet" >:(
Daher diese Aktion, für Textnachrichten geht es ja nur bei Attachments scheint dies nicht richtig zu funkionieren.
thx
Volkan
Bei der Abfrage ob da was ist bekomme ich die Meldung: "Type mismatch" bei "If item Is noting Then"
...
Set docB = New NotesDocument(Mailbox)
Set item = docA.GetFirstItem("Body")
If item Is noting Then
Print "Da fehlt der Körper!"
End If
' Values for sending
docB.SendTo = docA.GetItemValue( "SendTo" )
docB.Recipients = docA.GetItemValue( "SendTo" )
Ich habe jetzt keinen Ansatz mehr wie ich dem Mail Doc beibringen soll ein Attachment mitzuschicken... :-:
Der nicht mehr weiterkommenden Volkan ???