Mails direkt aus mail.box versenden

[giochips]

Hallo Leute,

ich suche schon seit einiger Zeit im Forum nach Beiträgen i.S. Mails direkt aus Mail.box versenden, damit der Absender beliebig vorgegeben werden kann. Hab auch einiges gefunden. Allerdings hab ichs noch nicht hinbekommen eine BlindCopy zu versenden!! In keinem Codeschnippsel wird dieses Feld genannt. Wie heißt das entsprechende Feld?? Doch BlindCopyTo oder? Ich kriegs nicht hin.

Mein Code:

Code

Dim mailbox As New NotesDatabase("","mail.box") 
Dim mail As notesDocument
Set mail = mailbox.CreateDocument
Call mail.ReplaceItemValue("Form","Memo")
Call mail.ReplaceItemValue("Subject","ICH BIN EIN BETREFF")
Call mail.ReplaceItemValue("From", |test@test.com|)
Call mail.ReplaceItemValue("ReplyTo", |test@test.com|)
Call mail.ReplaceItemValue("Recipients", |test@test.com|)
Call mail.ReplaceItemValue("SendTo", |test@test.com|)
Call mail.ReplaceItemValue("BlindCopyTo", "keine@Ahnung.de")               <-------- HIER??????
Set rtitem = New NotesRichTextItem ( mail, "Body" )
Call rtitem .AppendText("Ich bin ein Fake Absender und lege meine Post immer in der mail.box ab :-)")
Call rtitem.AddNewLine( 1 )
Call mail.ComputeWithForm(True,False) 
Call mail.Save(False,False)

Vielen Dank!!
Marco

[WildVirus]

Hallo Marco,

hast Du mal Deine Admins gefragt, was die davon halten - vermutlich nichts.

Was machst Du, wenn ein Server mehr als eine Mailbox hat ? Dann ist der Dateiname nicht Mail.box !

Soll der Agent lokal auf dem Client laufen ? Oder in einer Datenbank auf einem Server ? .......

Außerdem fehlt ein    

Code

Dim rtitem As NotesRichTextItem

, was bei Aktivierung von

Code

Option Declare

direkt ersichtlich wird.

Warum willst Du so arbeiten ? Es gibt saubere und unsaubere Wege ein Ziel zu erreichen und Du bist mir hier m.E. auf dem zweiten Weg !

Schönen Tag,
Axel

[eknori]

Wie heißt das entsprechende Feld??

Das kann man sehr leicht im Designer herausfinden, wenn man sich das Design der Memo Maske ansieht.

[giochips]

Hallo Axel, hallo Ulrich,

@Axel:

hast Du mal Deine Admins gefragt, was die davon halten - vermutlich nichts.

Der Admin hat nix dagegen... ich hab mich schon gefragt! 

Was machst Du, wenn ein Server mehr als eine Mailbox hat ? Dann ist der Dateiname nicht Mail.box !

Der Server hat mehr als eine Mailbox. Die heißen, wie üblich, mail1.box, mail2.box...

Außerdem fehlt ein Dim rtitem As NotesRichTextItem

Den Code den ich gepostet hab hab ich aus einer anderen Anfrage rauskopiert. Mir gehts ja nur darum, das ich keine Blindkopien verschicken kann. "Normale" Empfänger funzt ja.

Mein Ziel ist: Verschicken eines "Newsletters". Deshalb auch das Versenden als Blindkopien! Soll ja nicht jeder sehen, wer die Mail noch bekommen hat!
Als Absender soll eine bestimmte Mailadresse stehen. Egal wer das Verschicken aus dieser "Kundendatenbank" auslöst!! Verschicke ich ein Mail mit Notesdocument.send, erscheint ja immer der "Auslöser" als Absender, weils über seine Mailbox geht.
Kennst du eine bessere Vorgehensweise um dieses Problem zu umgehen??

@Ulrich:

Das kann man sehr leicht im Designer herausfinden, wenn man sich das Design der Memo Maske ansieht.

Das hab ich ja auch gemacht. Das Feld heißt "BlindCopyTo". Wenn ich aber dieses Feld im neuerstellten Doc in mail.box mit einer Adresse belege, erhält dieser Empfänger keine Mail.

Gruß
Marco

[klaussal]

Für solche Sachen bietet sich die Team-Mailbox von Openntf an.