< návrat zpět

MS Excel


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

Zaslal/a 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: jpg46154_outlook.jpg (149kB, staženo 73x)
46154_outlook.jpg
Zaslat odpověď >

#046155
avatar
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 With
citovat
#046158
avatar
Díky za tip. Určitě vyzkouším a poreferuji zda to pomohlo.citovat
#046159
avatar
Milan-158 moc děkuji, funguje to na 1.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje