• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Export z Excelu do kalendáře Outlook

Zaslal/a bigxixao 6.3.2020 23:44

Zdravím ve spolek. Potřebuji poradit s makrem na ukládání z Excelu do Kalendáře v Outlooku. Tady je část makra která funguje bez problémů (předmět, místo konání, začátek a konec události i připomenutí):

OLAppointment.Subject = Cells(aCellRow, 1).Value & " Počet pokojů: " & Cells(aCellRow, 2).Value
OLAppointment.Location = Cells(aCellRow, 5).Value
OLAppointment.Start = DateAdd("n", 840, Cells(aCellRow, 3).Value)
OLAppointment.End = DateAdd("n", 600, Cells(aCellRow, 4).Value)
OLAppointment.ReminderMinutesBeforeStart = "10080"

a já bych potřeboval ještě do kalendáře dostat informace z pole, které nevím jak se jmenuje a tudíž nemohu ty informace z Excelu dostat do kalendáře. Na fotce jsem červeně označil pole o jehož název mi jde. Poradíte někdo? Předem děkuji.

Příloha: 46154_outlook.jpg (149kB, staženo 67x)

Zaslat odpověď >

---

Milan-158(7.3.2020 14:01)#046155

Nevím, jestli to bude fungovat, ale soudě podle následujícího kódu (ten vytvoří z excelu outlookovou zprávu), bych zkusil
OLAppointment.Body = "Zdarec!"
With OutMail
.To = "pacos1@moria.com" 'komu
.CC = "pacos2@moria.com" 'kopie
.Subject = "test odeslání e-mailu" 'předmět
.Body = "Dobrý den, " & vbCrLf & "..." & vbCrLf & "S pozdravem" 'text zprávy
.Attachments.Add "C:\Users\userXY\Documents\utahovací_momenty.pdf"
.Importance = 2 'vysoká důležitost
.Display 'zobrazí to tento e-mail s přílohou bez odeslání
' .Send 'anebo rovnou to odešle
End Withcitovat

bigxixao(8.3.2020 9:05)#046158

Díky za tip. Určitě vyzkouším a poreferuji zda to pomohlo.citovat

bigxixao(8.3.2020 9:41)#046159

Milan-158 moc děkuji, funguje to na 1.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse