Outlook névjegyalbum egyeztetése Excel táblával

Outlook névjegyalbum egyeztetése Excel táblával
2006-12-17T22:19:29+01:00
2006-12-18T17:51:00+01:00
2022-11-02T16:15:39+01:00
Csomorkany
Sziasztok!

A mobiltelefonomról a default Outlook-névjegyalbumba tölthető telefonszámregiszteremet szeretném egyeztetni az Excel-táblában leledző számítógépes címjegyzékemmel.

Az ügy érdekében Outlook makrót szeretnék írni.

Segítséget kérek abban, hogy hogyan tudom olvasni ill. írni a default névjegyalbumot az Outlookban, ill. hogyan tudok Outlook makróval egy konkrét Excel-fájlban egy Excel munkatáblából olvasni ill. oda írni. Utóbbiról mondjuk több elképzelésem van, de a névjegyalbum elérésére nincs ötletem. Köszi!
Mutasd a teljes hozzászólást!
Sub teszt() ' Bekapcsolod a VBE-ben a Tools > References-nél a "Microsoft Outlook xx.x" objektumkönyvtárat. 'Az Excelhez meg a "Microsoft Excel xx.x object library-t ' Ez most Wordből hívott, így aprólékosan meg kell adni az objektumokat. ' Ha Outlook lenne nem kellene ennyire, de ott se okoz gondot. Dim OuApp As Outlook.Application Dim Album As MAPIFolder 'Dim nevj As AddressEntry Set OuApp = New Outlook.Application Set Album = OuApp.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts) ' Ha végig akarsz menni rajta: For Each nevj In Album.Items Debug.Print nevj.FirstName & " " & nevj.LastName ' A View > Immediate ablakba listázza. Next 'Ha keresni akarsz benne: Set nevj = Album.Items.Find("[FirstName] = ""István""") If TypeName(nevj) <> "Nothing" Then MsgBox nevj.LastName Else MsgBox "Nincs" End If 'Excel elérés Dim ex As New Excel.Application Set ex = New Excel.Application ex.Visible = True ' Biztosabb, ha látod With ex .Workbooks.Open "C:\tel.xls" ' olvasni: A1=worksheets("Munka1").cells(1,1).value A1=worksheets("Munka1").Range("a1").value AktivLap_A1=Activesheet.cells(1,1).value AktivLap_A1=Range("a1").value ' Írni "fordítva": Range("a1").value=AktivLap_A1 .ActiveWorkbook.Save .ActiveWorkbook.Close End With ex.Quit Set ex = Nothing End Sub


Bocs, az Outloook írni kimaradt:
With nevj.Items.Add 'Névjegykártya adatok .utónév = "Krizsák" 'Használható a magyar neve is, de nem javasolt. Legyen inkább FirstName .LastName = "László" .CompanyName = "A cégem" .JobTitle = "Oktató" '.Display ' Ha csak megjeleníteni akararod és kézzel mented .Save ' Ha egyből mented End With


A többi tulajdonságot lásd a Microsoft-nál
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd