Objektinhalte kopieren

14/01/2008 - 08:25 von Michael Kolowicz | Report spam
Guten Morgen an alle,

meine Frage ist, ob es möglich ist auf einfachen Weg die Inhalte von
Eigenschaften eines Objekt zu kopieren

Ich habe einen Anwendung geschrieben, die Emails versenden kann. da ich
nicht an einen bestimmt Office-Version gebunden sein möchte verwende ich
"Late Binding". Ich habe auch eine Funktion geschrieben, die Parameter
hat für die gàngisten Eigenschaften.

Nun möchte ich aber auch die Möglichkeit bieten (beim Entwickeln), dass
ich ein MailItem zur Verfügung habe (habe eine Klasse mit allen im
Objekt-Katalog angezeigten Eigenschaften erstellt) und diese in das
"original" Outlook.MailItem kopiere

Teil meines Codes sieht so aus:

Public Shared Sub SendEmail(ByVal EmailObject As EMAIL.MailItem)

Dim objOutlook As Object = CreateObject(olAPPLICATION, "LocalHost")
Dim EMAILItem As Object = objOutlook.CreateItem(olItemType.olMailItem)

'Kopieren des EmailObjects in das Outlook.EmailItem
EMAILItem = EmailObject



End Sub

Ist der Ansatzt etwa falsch? Muss man hier mit DirectCast/Trycast
arbeiten? Oder wie kopiert man die Inhalte? (Hoffentlich nicht alle
Eigenschaften expliziert kopieren :-( )

Vielen dank für eure Tipps

Gruß
Michael Kolowicz
 

Lesen sie die antworten

#1 Peter Fleischer
14/01/2008 - 10:26 | Warnen spam
"Michael Kolowicz" schrieb im Newsbeitrag
news:

Ist der Ansatzt etwa falsch? Muss man hier mit DirectCast/Trycast
arbeiten? Oder wie kopiert man die Inhalte? (Hoffentlich nicht alle
Eigenschaften expliziert kopieren :-( )
___

Hi Michael,
alle Eigenschaftswerte kannst du nicht kopieren, das es auch
schreibgeschütze Eigenschaften gibt. Du wirst nicht umhin kommen, alle
gewünschten Werte einzekn zuzuweisen. Wenn dir das zu stressig ist, dann
geht das vielleicht über Reflection in einer Schleife.

Viele Gruesse

Peter

Ähnliche fragen