Note: The other languages of the website are Google-translated. Back to English

Sut i greu nodiadau atgoffa Outlook o daenlen Excel?

Mae'r erthygl hon yn sôn am greu nodiadau atgoffa Outlook yn seiliedig ar ddata taenlen Excel.

Nodiadau atgoffa Creta Outlook o daenlen Excel gyda chod VBA


Nodiadau atgoffa Creta Outlook o daenlen Excel gyda chod VBA

Os ydych chi am greu nodiadau atgoffa Outlook gan Excel, gwnewch fel a ganlyn.

1. Mae creu taflen waith yn cynnwys penawdau'r colofnau a'r meysydd atgoffa cyfatebol fel y dangosir isod.

Nodyn: Ar gyfer y statws prysur colofn, rhif 2 yn golygu y bydd y nodyn atgoffa yn cael ei ddangos fel Prysur yn eich calendr Outlook. Gallwch ei newid i 1 (Cynhyrfus), 3 (Allan o'r Swyddfa), 4 (Gweithio mewn man arall), Neu 5 (Am ddim) fel y mae arnoch ei angen.

2. Gwasgwch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

3. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch isod god VBA i mewn i'r ffenestr Cod.

Cod VBA: Creu nodiadau atgoffa Outlook o daenlen Excel

Sub AddAppointments()
'Update by Extendoffice 20180608
    Dim I As Long
    Dim xRg As Range
    Dim xOutApp As Object
    Dim xOutItem As Object
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = Range("A2:G2")
    For I = 1 To xRg.Rows.Count
        Set xOutItem = xOutApp.createitem(1)
        Debug.Print xRg.Cells(I, 1).Value
        xOutItem.Subject = xRg.Cells(I, 1).Value
        xOutItem.Location = xRg.Cells(I, 2).Value
        xOutItem.Start = xRg.Cells(I, 3).Value
        xOutItem.Duration = xRg.Cells(I, 4).Value
        If Trim(xRg.Cells(I, 5).Value) = "" Then
            xOutItem.BusyStatus = 2
        Else
            xOutItem.BusyStatus = xRg.Cells(I, 5).Value
        End If
        If xRg.Cells(I, 6).Value > 0 Then
            xOutItem.ReminderSet = True
            xOutItem.ReminderMinutesBeforeStart = xRg.Cells(I, 6).Value
        Else
            xOutItem.ReminderSet = False
        End If
        xOutItem.Body = xRg.Cells(I, 7).Value
        xOutItem.Save
        Set xOutItem = Nothing
    Next
    Set xOutApp = Nothing
End Sub

Nodyn: Yn y cod uchod, A2: G2 yw'r ystod ddata rydych chi am greu apwyntiadau yn seiliedig arni.

4. Gwasgwch y F5 allwedd neu cliciwch y botwm Run i redeg y cod. Yna bydd yr holl apwyntiadau â meysydd penodol yn cael eu mewnosod yng nghalendr eich Camre ar unwaith.

Ac yna, gallwch fynd i Galendr eich rhagolwg i weld y canlyniadau, Gweler y screenshot: 


Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
  • Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Datgysylltiad Auto, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
  • E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.
tab kutools rhagweld kutools tab 1180x121
kutools rhagweld rhagolygon kutools ynghyd â thab 1180x121
 
sylwadau (51)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi Yno,

Fformiwla/cod gwych.


Beth sy'n digwydd bod y cod hwn yn cynhyrchu cofnodion lluosog yn y calendr rhagolygon os caiff ei redeg fwy nag unwaith trwy gamgymeriad. Roeddwn hefyd eisiau iddo gael ei osod fel templed fel y gall staff ei ddefnyddio. Gallant roi'r dyddiadau a gweddill y manylion sydd eu hangen a phan fyddant yn rhedeg dylai restru'r cofnodion yn y calendr rhagolygon. Dylid dileu unrhyw ddata excel sydd wedi'i ddileu o'r rhagolygon hefyd ac mae'r un peth yn wir am unrhyw newidiadau. Pan fyddaf yn cadw'r daenlen excel mae'n arbed yn y fformat excel rhagosodedig, ond rwyf am iddo gael ei gadw gyda Macros fel nad yw'n colli'r cod a gall staff ei ddefnyddio cymaint o weithiau ag sydd angen. A allwch chi roi cyngor a gwneud newidiadau perthnasol i'r cod? Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
I arbed y macros i'w defnyddio yn y Llyfr Gwaith yn y dyfodol, mae angen i chi glicio Ffeil > Cadw Fel > Pori > dewis ffolder i gadw'r llyfr gwaith > dewis “Excel Macro-enabled Workbook” o'r gwymplen Save as Math > Save.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,

Sut alla i anfon y nodiadau atgoffa at fwy nag un person? Helpwch os gwelwch yn dda.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, diolch am y cod ond rwy'n cael trafferth ag ef dim ond rhoi'r cofnod cyntaf yn excel i mewn i Outlook. Sut mae ei gael i nodi pob eitem linell?
Dyma fy nghod, ychwanegais mewn lliw categori


Is-Benodiadau Ychwanegu()
'Diweddariad gan Extendoffice 20180608
Dim I Cyn Hir
Dim xRg Fel Ystod
Dim xOutApp Fel Gwrthrych
Dim xOutItem Fel Gwrthrych
Gosod xOutApp = CreateObject ("Outlook.Application")
Gosod xRg = Ystod ("A2: G2")
Am I = 1 I xRg.Rows.Count
Gosod xOutItem = xOutApp.createitem(1)
Debug.Print xRg.Cells(I, 1).Gwerth
xOutItem.Subject = xRg.Cells(I, 1).Gwerth
xOutItem.Location = xRg.Cells(I, 2).Gwerth
xOutItem.Start = xRg.Cells(I, 3) + xRg.Cells(I, 8).Gwerth
xOutItem.Duration = xRg.Cells(I, 4).Gwerth
xOutItem.Categories = xRg.Cells(I, 9).Gwerth
If Trim(xRg.Cells(I, 5).Value) = "" Yna
xOutItem.BusyStatus = 2
arall
xOutItem.BusyStatus = xRg.Cells(I, 5).Gwerth
Gorffennwch Os
Os xRg.Cells(I, 6).Gwerth > 0 Yna
xOutItem.ReminderSet = Gwir
xOutItem.ReminderMinutesBeforeStart = xRg.Cells(I, 6).Gwerth
arall
xOutItem.ReminderSet = Gau
Gorffennwch Os
xOutItem.Body = xRg.Cells(I, 7).Gwerth
xOutItem.Save
Gosod xOutItem = Dim byd
Digwyddiadau
Gosod xOutApp = Dim byd
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n cael yr un mater, mae'r cod yn gweithio'n wych ond dim ond yr apwyntiad cyntaf y mae'n ei ychwanegu at y calendr. Dyma fy nghod:

Is-Benodiadau Ychwanegu()
'Diweddariad gan Extendoffice 20180608
Dim I Cyn Hir
Dim xRg Fel Ystod
Dim xOutApp Fel Gwrthrych
Dim xOutItem Fel Gwrthrych
Gosod xOutApp = CreateObject ("Outlook.Application")
Gosod xRg = Ystod ("A2: G2")
Am I = 1 I xRg.Rows.Count
Gosod xOutItem = xOutApp.createitem(1)
Debug.Print xRg.Cells(I, 1).Gwerth
xOutItem.Subject = xRg.Cells(I, 1).Gwerth
xOutItem.Location = xRg.Cells(I, 2).Gwerth
xOutItem.Start = xRg.Cells(I, 3).Gwerth
xOutItem.Duration = xRg.Cells(I, 4).Gwerth
If Trim(xRg.Cells(I, 5).Value) = "" Yna
xOutItem.BusyStatus = 2
arall
xOutItem.BusyStatus = xRg.Cells(I, 5).Gwerth
Gorffennwch Os
Os xRg.Cells(I, 6).Gwerth > 0 Yna
xOutItem.ReminderSet = Gwir
xOutItem.ReminderMinutesBeforeStart = xRg.Cells(I, 6).Gwerth
arall
xOutItem.ReminderSet = Gau
Gorffennwch Os
xOutItem.Body = xRg.Cells(I, 7).Gwerth
xOutItem.Save
Gosod xOutItem = Dim byd
Digwyddiadau
Gosod xOutApp = Dim byd
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae angen i chi newid Set xRg = Ystod ("A2:G2") i fod yn A": ble bynnag y daw eich data i ben, felly os oes gennych 20 rhes bydd yn A2:G20.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! Caru syniad y cod hwn, ond mae gen i ychydig o gwestiynau:


1. Ni fydd yn rhedeg oherwydd y "bug" ar y llinell hon (gwall 440, gwall amser rhedeg):
xOutItem.ReminderMinutesBeforeStart = xRg.Cells(I, 6).Gwerth
2. Os nad wyf o reidrwydd am roi penawdau'r colofnau o A2:G2, a allaf ei newid yn y cod (ex: F3-K3), a fydd yn dal i weithio?
3. Sut mae'n gwybod i gysylltu â fy rhagolygon?


Diolch am eich ymateb, byddwn yn ei werthfawrogi'n fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Alexandra,
Ni ddigwyddodd y gwall 440 yn fy achos i. Pa fersiwn Office ydych chi'n ei ddefnyddio?
Ni fydd y cod yn gweithio os ydych chi'n newid y cod i F3:K3. Os oes angen yr ateb arnoch, byddaf yn ceisio ei ddarganfod.
Bydd y llinell hon "Set xOutApp = CreateObject ("Outlook.Application")" yn helpu i gysylltu'r data Excel i'r rhaglen Outlook.
Diolch am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae'r cod yn ymddangos yn ddefnyddiol iawn ond mae ganddo un anfantais, Os caiff y ffeil ei diweddaru'n barhaus bydd yn creu nodyn atgoffa newydd bob tro y caiff ei rhedeg. Oes modd ychwanegu llinell i ddileu pob nodyn atgoffa blaenorol ac yna creu rhai newydd?
Hefyd a ellir allforio hwn i gyfrifon rhagolygon lluosog?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Keith,
Mae'n ddrwg gennym ni all eich helpu gyda hynny. Mae angen i chi ddileu pob nodyn atgoffa blaenorol â llaw yn Outlook. Ac mae'r nodiadau atgoffa yn cael eu hychwanegu at y cyfrif Outlook diofyn yn unig. Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gan hyn y potensial i fod o gymorth mawr. Diolch!. A allwch chi ychwanegu marciwr mewn colofn newydd sy'n cael ei droi ymlaen pan fydd nodyn atgoffa yn cael ei gynhyrchu ar gyfer y rhes honno (naill ai â llaw neu'n awtomataidd), ond yna'n hepgor rhesi â marcwyr y tro nesaf y byddwch chi'n rhedeg y macro? 
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mae'r cod hwn yn gweithio ond dim ond ar gyfer y cofnod cyntaf. Sut ydych chi'n ei addasu ar gyfer ystod: Taflen3!A2:G17 ?

Newidiais y cod i ddweud: Gosod xRg = Ystod ("Set xRg = Range" ("A2: G2") Er hynny, dim ond y llinell gyntaf y mae'n ei dewis yn y rhagolygon.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Amnewidiwch y llinell Set xRg = Ystod ("A2:G2") gyda Set xRg = Taflenni Gwaith ("Taflen3"). Ystod ("A2: G17").
Diolch am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Crystal,
Rwyf eisoes wedi disodli'r llinell ac mae'n gweithio, ond nid yw 'corff' yn yr ail reng ac yn y blaen yn dod allan yn atgoffa, ond yn dewis rhes gyntaf yn unig.
Rhowch wybod..
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut i ychwanegu mynychwyr eraill yn yr apwyntiad hwn hefyd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Dharma,
Mae'n ddrwg gennym ni ellir datrys y probem eto. Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Crystal! Cod gwych.

Mae angen i mi ychwanegu/gwahodd mynychwyr. Unrhyw syniad?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
gwefeistr annwyl
diolch am y cod. Mae gennyf broblem gan iddo fethu â gweithredu. (gwall amser rhedeg '-21447467263 (80004001)' : Heb ei weithredu.
pan fyddaf yn pwyso'r botwm dadfygio mae'n amlygu'r llinell god "xOutItem.Save" 28.
a allech roi ateb i'r mater hwn?
ran
Canu
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo canu,
Sori am ateb mor hwyr. Mae angen i mi wybod eich fersiwn Excel er mwyn darganfod y broblem. Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ydych chi'n gwybod sut y gallaf gynnal digwyddiad diwrnod cyfan?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Mae'n ddrwg gennym ni all helpu i ddatrys y broblem eto.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,

A yw'n bosibl defnyddio cod i wneud cofnod ar galendr grŵp yn Outlook?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Mae'n ddrwg gennym ni all helpu i ddatrys y broblem eto.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os byddaf yn defnyddio hwn mewn siart gantt ac yn diweddaru dyddiadau dyledus, a oes rhaid i mi ail-redeg? A oes ffordd hawdd i dynnu o'r calendr heb ddileu pob un unigol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
pan fyddwn yn defnyddio cod VBA ar gyfer atgoffa yna mae gwall yn dangos
Gwall casglwr :
Nid yw math diffinio defnyddiwr yn cael ei ddiffinio
ar ôl pwyso botwm iawn
symud y cyrchwr ymlaen DIM xRg fel Ystod

helpwch...??
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo gwinet,
Ymddiheuriadau am yr anghyfleustra. Pa fersiwn Excel ydych chi'n ei ddefnyddio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo ..
A fyddwn yn rhedeg y macro hwn bob tro i actifadu'r nodyn atgoffa ? neu dim ond unwaith y mae angen i ni glicio? yna mae'n iawn rhwygo'r cyfrifiadur a chau'r ffeil Excel ?

Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Juicy,
Dim ond un clic sydd ei angen i redeg y cod, yna bydd nodiadau atgoffa parod yn cael eu creu yn awtomatig yng nghalendr Outlook. Ar ôl hynny, gallwch chi wneud unrhyw beth ag y dymunwch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, A oes ffordd i awtomeiddio rhedeg y cod hwn, ee. wrth agor rhagolygon?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo chan,
Gan fod y cod yn cael ei gadw yn llyfr gwaith Excel, ni allwn ei redeg yn awtomatig wrth agor Outlook. Mae'n ddrwg gennyf am hynny.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,

Pan fyddaf yn dilyn yr union gamau gyda Microsoft Outlook yn agored ac yn rhedeg yn y cefndir, mae rhedeg y macro yn rhoi gwall i mi " Llunio gwall: gweithdrefn allanol annilys". Byddai unrhyw help yn cael ei werthfawrogi.

diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Abe,
Gan fod y meysydd atgoffa wedi'u creu mewn taflen waith, mae angen ichi ychwanegu'r cod at ffenestr cod Modiwl llyfr gwaith Microsoft Excel a'i redeg yn Excel.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gennyf rywfaint o dabl deinamig yn excel i fod ar gael yn y corff atgoffa. A allwn ni wneud hynny? awgrymwch sut
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Felly mae gennym daenlen excel yr ydym yn nodi dyddiadau dod i ben ar gyfer trwyddedau, ac rydym yn meddwl tybed sut y byddem yn ei wneud fel pan fyddwn yn ychwanegu dyddiadau dod i ben newydd y bydd yn eu hychwanegu'n awtomatig at ein calendr rhagolygon gyda nodiadau atgoffa fis cyn a 2 wythnos ynghynt. Beth fyddai ei angen ar hynny?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, a yw'n bosibl nodi at ba galendr y bydd y nodyn atgoffa yn cael ei ychwanegu. Hoffwn eu hychwanegu at galendr blwch post a rennir fel bod pawb yn y tîm yn cael y nodyn atgoffa, yn hytrach na fy nghalendr e-bost personol
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi! 
A wnaethoch chi ddod o hyd i ffordd i ychwanegu'r nodyn atgoffa i'r tîm cyfan? Rwyf am gynnwys un person arall yn unig ac rwy'n meddwl tybed a yw'n bosibl a sut i wneud hyn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, diolch yn fawr am y cod hwn. Mae'n gweithio'n hyfryd ar ffenestri. Ydych chi'n digwydd gwybod sut y gallaf weithredu hyn ar Mac? Dwi wedi bod yn trio ffeindio ffordd ers rhai dyddiau nawr, un ffordd dwi wedi ffeindio ydy creu AppleScript ond does gen i ddim gwybodaeth sut i wneud hyn. Ffordd arall oedd defnyddio Peiriant Rhithwir yn rhedeg Windows 10 ond nid dyma fy ffordd ddelfrydol o weithio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwall "Nid yw'r gwrthrych hwn yn cefnogi'r weithred hon" ar xOutItem.ReminderMinutesBeforeStart = xRg.Cells(I, 6).Value
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir