< návrat zpět
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 73x)
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