Propojení exelu s outlook

[zouhin]

Dobrý den,

Měl bych na Vás takovou otázku. Mám v exelovské tabulce datumy a pokud je to možné rád bych aby se mi automaticky tyto datumy dotahovali do kalendáře v outlooku a nebo v daný datum přišel email. Je to možné nějak udělat, když datumy jednou za čas měním? Předem všem děkuji.

[guest]

A co u těch datumů je? Nějaké události? Máte to promyšlené? Co čekáte, až zapíšete událost do Outlooku a v Excelu datum následně přepíšete? Kdo odstraní starou neplatnou událost? Jinak ano, co by to nešlo, je potřeba se připojit na objektový model Outlooku přes VBA.

[zouhin]

A co u těch datumů je? Nějaké události? Máte to promyšlené? Co čekáte, až zapíšete událost do Outlooku a v Excelu datum následně přepíšete? Kdo odstraní starou neplatnou událost? Jinak ano, co by to nešlo, je potřeba se připojit na objektový model Outlooku přes VBA.

Jedná se o databázi měřidel a datumy jsou zde přiřezeny podle toho kdy se má měřidlo zkontrolovat. Promyšlené to tak nějak nejspíše mám. Rád bych když mám v exelu datum tak aby mi to do outlooku hodilu na příslušné datum do kalendáře upomínku například s názvem "kalibrace" no a pokud bych změnil ten datum tak aby se i v kalendáři vytvořila klidně nová událost a ta stará zůstala. Jediný kdo by mohl měnit datumy jsem já a nebo ten kdo by měl heslo k zamknutému exelu. Pokud by to někdo uměl naprogramovat tak mi poraďte jak na to nebo bych se i rád nějak domluvil na nějakém extra makru, které by fungovalo. Bohužel moc programovat neumím tak bych byl vděčný za každou pomoc.

[guest]

Když mi chvíli dáte (den, dva), tak bych i nějakou ukázku vytvořil.

[zouhin]

Když mi chvíli dáte (den, dva), tak bych i nějakou ukázku vytvořil.

Určitě. Za jakoukoli pomoc budu vděčný. Pokud ukázka bude taková, že bych v tom nějak pochopil jak co funguje tak by to byla paráda. Rád bych se přiučil programování

[guest]

Je to trochu šito horkou jehlou, chce si to krokovat kód a v nápovědě VBA pro Outlook nastudovat vlastnosti objektů (v datumech se správně má objevit i čas, upozornění před startem u události je v minutách atp.). Kromě toho chce ošetřit blbovzdornost. Na místě intRadek třeba využijte řádek aktivní buňky, testujte vybraný list, rozmezí řádků, aby uživatel nevybral hlavičku a spoustu dalšího. Na straně Outlooku není ošetřena duplicita událostí (to si moc ani nedovedu představit) atd.

Kód: Vybrat vše

Sub VytvoritUdalost()

    Dim objOutlook As Object
    Dim objTaskItem As Object
    Dim objAppointmentItem As Object

    Dim intRadek As Integer

    intRadek = 2

    Set objOutlook = CreateObject("Outlook.Application")

    'úkol ... olTaskItem ... 3
    'Set objTaskItem = objOutlook.CreateItem(3)

    'With objTaskItem
    '    .Subject = Cells(intRadek, 1).Text
    '    .StartDate = Cells(intRadek, 2).Value
    '    .DueDate = Cells(intRadek, 3).Value
    '    .ReminderTime = Cells(intRadek, 4).Value
    '    .Body = Cells(intRadek, 5).Text
    '    .Save
    'End With

    'událost ... olAppointmentItem ...1
    Set objAppointmentItem = objOutlook.CreateItem(1)
    
    With objAppointmentItem
        .Subject = Cells(intRadek, 1).Text
        .Start = Cells(intRadek, 2).Value
        .End = Cells(intRadek, 3).Value + 1
        .AllDayEvent = True
        .ReminderMinutesBeforeStart = 1440
        .Body = Cells(intRadek, 5).Text
        .Location = Cells(intRadek, 6).Text
        .Save
    End With

    'odstranění objektů z paměti
    Set objTaskItem = Nothing
    Set objAppointmentItem = Nothing
    Set objOutlook = Nothing

End Sub

Jinak Google...
http://www.jpsoftwaretech.com/create-ta ... using-vba/
http://www.jpsoftwaretech.com/using-exc ... n-outlook/

P. S. Nepište mi "exel" :-)

[zouhin]

Bohužel se přiznám, že jsem se s makrem neseznámil a moc jsem v něm nenašel jak přesně to funguje. Programování je pro mě španělská vesnice. Nepodařilo se mi ani rozjetpříslošné makro na mé konkrétní databázi. Přikládám část konkrétní databáze. Pokud by to šlo stačilo by mi vždy vypisovat název události "kalibrace" no a datum je přímo určen v termínu kalibrace, ale je vytvořen dopočtem viz přiložený excel. Děkuji za ochotu a za vynaložené úsilí.

[guest]

a) Nepřikládáte nic, blbnete se zamykáním vlákna.
b) Pardon, ale asi nejste správná osoba, která by to měla dělat.