Abspeichern eines Kontaktes über ein ContactItem in einer Outlook-Instanz

04/10/2012 - 15:07 von w.weitzel | Report spam
Hallo,

ich habe mit unten stehendem Code eine Outlook Instanz erzeugt und darin ein ContactItem erstellt.

Die Zuweisung der Kontaktinfos aus der Datenbank funktioniert.
Ich erhalte keine Fehlermeldung.

Mit dem Befehl
.ForwardAsVcard
wird nach der Hilfe eine vCard erzeugt.
Bei mir àndert sich aber nichts.

Wo liegt bei mir das Problem?

Gruß Wolfgang


Hier der Code:

Public Sub Kontakt_Send()
Set objOutlook = New Outlook.Application
Set objKonakt = objOutlook.CreateItem(olContactItem)

With objKonakt
.CompanyName = m_Firma
.BusinessAddressStreet = m_Strasse1
.BusinessAddressPostalCode = m_PLZ
.BusinessAddressCity = m_Ort
.BusinessAddressCountry = m_Land
.Email1Address = m_eMail
.BusinessTelephoneNumber = m_Tel
.BusinessFaxNumber = m_Fax
.FirstName = m_Vorname
.LastName = m_Nachname
.Email2Address = m_eMail1
.CallbackTelephoneNumber = m_Tel1
.OtherFaxNumber = m_Fax1
.MobileTelephoneNumber = m_Mobil
.ForwardAsVcard
End With
End Sub
 

Lesen sie die antworten

#1 w.weitzel
07/10/2012 - 18:51 | Warnen spam
Am Donnerstag, 4. Oktober 2012 15:07:33 UTC+2 schrieb w.weitzel:
Hallo,



ich habe mit unten stehendem Code eine Outlook Instanz erzeugt und darin ein ContactItem erstellt.



Die Zuweisung der Kontaktinfos aus der Datenbank funktioniert.

Ich erhalte keine Fehlermeldung.



Mit dem Befehl

.ForwardAsVcard

wird nach der Hilfe eine vCard erzeugt.

Bei mir àndert sich aber nichts.



Wo liegt bei mir das Problem?



Gruß Wolfgang





Hier der Code:



Public Sub Kontakt_Send()

Set objOutlook = New Outlook.Application

Set objKonakt = objOutlook.CreateItem(olContactItem)



With objKonakt

.CompanyName = m_Firma

.BusinessAddressStreet = m_Strasse1

.BusinessAddressPostalCode = m_PLZ

.BusinessAddressCity = m_Ort

.BusinessAddressCountry = m_Land

.Email1Address = m_eMail

.BusinessTelephoneNumber = m_Tel

.BusinessFaxNumber = m_Fax

.FirstName = m_Vorname

.LastName = m_Nachname

.Email2Address = m_eMail1

.CallbackTelephoneNumber = m_Tel1

.OtherFaxNumber = m_Fax1

.MobileTelephoneNumber = m_Mobil

.ForwardAsVcard

End With

End Sub



Hallo,

ich habe mein Problem gelöst!

Der Kontakt musste zuerst mit
objKontakt.SaveAs "D:\" & .FileAs & ".vcf", olVCard
abgespeichert werden.

Anschließend konnte ich diesen Kontakt mit
objMail.Attachments.Add "D:\" & .FileAs & ".vcf"
an die email anfügen.

MfG

W. Weitzel

Ähnliche fragen