MS Excel

Ahojte,

kedysi som tu pisal nieco ohladom automatickeho importu adries z excelu do outlooku. Nasiel som na nete moznost ako sa to da spravit, no neviem si rady s jednou vecou. Potrboval by som aby mi pred importom vymazalo uz existujuce kontakty teda dany priecinok bude prazdny a nasledne naimportovalo nove. Vie mi niekto pomoc s tym vymazanim. Posielam zdrojak.

Cerpal som odtialto: http://www.globaliconnect.com/excel/index.php?option=com_content&view=article&id=167:import-contacts-from-excel-to-outlook-automate-in-vba&catid=79&Itemid=475

Zaslat odpověď >

eLCHa(30.10.2014 7:35)#022057

Na ten odkaz jsem nekoukal, ale mazání (přepisování) kontaktů je zvláštní. Nicméně může být.

Jestli to jde jedním krokem, nevím. Nepřišel jsem na to a nemyslím si to. Takže je třeba cyklus - se divím, že to Palooo ještě nevytvořil, cykly jsou jeho parketa ;))
Zkoušel jsem for each, ale nebylo to spolehlivé, takže klasicky for.

Sub subDeleteContacts()
Const olFolderContacts As Byte = 10

Dim olApp As Object
On Error Resume Next
Set olApp = GetObject(, "Outlook.Application")
If olApp Is Nothing Then
Set olApp = CreateObject("Outlook.Application")
End If
On Error GoTo 0

Dim olFolder As Object
Set olFolder = olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)

Dim I As Integer
For I = olFolder.Items.Count To 1 Step -1
olFolder.Items(I).Delete
Next I

Set olFolder = Nothing
Set olApp = Nothing
End Sub

V kontaktech nemám podsložky a vytvářet si je se mi nechce - pokud je tam máte, možná to bude potřeba trochu upravit.citovat

laco_atc(30.10.2014 9:08)#022059

Ahoj,

dakujem za help, idem to skusit pouzit.citovat

Palooo(30.10.2014 9:14)#022060

eLCHa: povodne som chcel ale ja to skusam povacinou len v robote a tu sa hrat s kontaktami by bolo dost hard.citovat

eLCHa(30.10.2014 9:22)#022061

Palooo napsal/a:

eLCHa: povodne som chcel ale ja to skusam povacinou len v robote a tu sa hrat s kontaktami by bolo dost hard.

Stejně jako je hard nemít zálohu ;))
Napřed jsem se na to díval stejně, ale když jsem si uvědomil, že polovina kontaktů už je stejně out, taxem si řek, že to zkusím ;))
Udělal jsem si zálohu a zkusil je natáhnout - světe div se, vono to fungovalo na 1 ;)citovat

laco_atc(30.10.2014 10:21)#022063

Chlapci, dakujem, funguje ako ma.
Mozeme uzamknut.citovat

Téma: Doplnenie vymazania

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje