Anhänge per DvAPI an eine Mail anfügen???

BeSt

Hallo.

Mittels

Code

oAttachment =  oNewMailItem.Attachments.Add("c:\test.txt")

kann ich die Datei mit test.txt an eine Mail anhängen.

Wenn ich nun aber an eine Email mehere Dateien z.B. in einer Schleife wie

Code

for i=1 to 10
oAttachment =  oNewMailItem.Attachments.Add("c:\test" & i &  ".txt")
next

anhängen will, dann befindet sich nach dem Versenden der Mail nur die letzte Datei (im Bsp test10.txt) im Anhang. Das liegt vermutlich daran, dass mit jedem neuen Aufruf von "oAttachment = ..." dieses Object überschrieben wird. Wie kann ich es aber erreichen, dass ich an eine EMail mehrere Anhänge anfügen kann?

Bitte um Hilfe.
DANKE.

Benni

dj2k

Das Problem ist doch Dein Objekt (!), dass Du immer wieder überschreibst - das ganze ist nicht ByValue sondern ByRef!

Wenn Du in eine ganz normale Variable die Zahlen von 1 - 10 reinschreibst, steht doch auch am Ende die 10 drin

Code

for i=1 to 10 
a= i 
next

Dann steht 10 drin - das Verhalten ist also richtig - nur das Konzept suboptimal

Du musst also bei jedem Schleifendurchgang ein neues oAttachment erzeugen.

BeSt

Warum es so ist, das habe ich selbst bereits heruasgefunden.
Das Problem ist, dass ich zwar ein wenig Programmiererfahrung habe, aber bisher nicht viel mit VB.NET gemacht habe und daher nicht weiß, wie ich das in Visual Basic anstelle, dass dynamisch zur Laufzeit ein solches Objekt erzeugt wird, wobei ich vorher die Anzahl der benötigten Objekte nicht weiß. Vielleicht kann mir da jemand konkreter helfen?

DANKE.

dj2k

Ich bau' Dir heute Abend ein Beispiel zusammen.

BeSt

Hallo dj2k.

Hast du ein Zeit für derartiges Beispiel gehabt?

Vielen Dank schonmal im Voraus.

LG
Benni

dj2k

Hier das Beispiel, ist zwar Csharp, aber OK:

Code

MailItem oNewMailItem = (MailItem)oTestArchive.NewItem(DvItemTypes.DvEMailItem); 
oNewMailItem.BodyText.PlainText = "blabla"; 
oNewMailItem.Subject = "test"; for (int i = 1; i < 3; i++) 
{ 
Attachment oAttachment = oNewMailItem.Attachments.Add(@"c:\test" + i.ToString() + ".txt","Test" + i.ToString()); 
} 
oNewMailItem.Save(oTestArchive, DvMessageSelectionTypes.DvMsgSelEMail);

Was Dir also fehlt ist die Erzeugung eines neuen Attachment-Objekts: Attachment oAttachment

BeSt

Völlig richtig. Die Erzeugnung eines neuen Objektes vom Typ DvApi32.Attachment fehlt mir. Aber genau das bekomme ich in VB.NET nicht hin. Ich hab keine Ahnung, wie das in VB geht. In vielen anderen Sprachen bekomme ich es hin (z.B. in C# )

In PHP würde ich es mit einem dynamischen Variablennamen machen
$tmp = "att".$i;
${$tmp} = oNewMailItem.Attachments.Add("c:\".$tmp.".EML");

Oder in JavaScript mit einer Evaluation (ähnlich wie PHP nur hier mittels eval($tmp) = oNewMailItem.Attachments.Add("c:\".$tmp.".EML");

Aber wie geht sowas in VB.NET? Ich weiß, dass es in VB keine Evaluations-Funktion gibt, aber wie kann ich dynamisch zur Laufzeit Variablen deklarieren? Das ist die entscheidende Frage.

Vielen Dank trotzdem für deine Mühe dj2k.

LG
Benni

dj2k

Dim oAttachment as Attachment
oAttachment = oNewMailItem.Attachments.Add....

BeSt

Das ist ja echt peinlich.
Diese Variante hab ich schon ganz am Anfang meiner "Odysee" versucht und habe eine Fehler bekommen. Jetzt erst beim nochmaligen durchsehen habe ich bemerkt, dass der "damalige" Fehler ein Tipfehler im Variablennamen war.

Shame on me!

Vielen Dank.

Jetzt mitmachen!