Activiteiten uit excel exporteren naar outlook middels VBA

Status
Niet open voor verdere reacties.
Z

Zeeuwjer

Gebruiker
Lid geworden
16 sep 2021
Berichten
25
Hallo,
Ik heb een projectoverzichtbestand, in 1 van de tabbladen het ik een lijst met activiteiten staat waarvan ik op de aangegeven datum per activiteit een afspraak met herinnering in outlook wil zetten.
Zelf heb ik al wat lopen zoeken en dit gevonden op dit forum (904881 Lege regels overslaan tijdens lezen kolom met datum) waarvan ik denk dat ik het kan toeppassen. Ik heb alleen te weinig kennis van VBA om dit te vertalen naar mijn bestand.
Een voorbeeldbestand heb ik toegevoegd, de lijst met activiteiten wil ik nog wel uitbreiden, maar dat gaat volgens mij wel goed met de loop die erin zit.
Om even te kijken wat dit script met mijn bestand heb ik geprobeerd deze te laten uitvoeren, maar ik krijg gelijk een foutmelding op het instellen van outlook, dit zal wel met de versie te maken hebben (ik gebruik office 365).
Wie kan mij helpen? Alvast bedankt,
Jeroen
 

Bijlagen

  • Activiteitenoverzicht.xlsm
    16,3 KB · Weergaven: 14
Dit zou een begin kunnen zijn, getest met excel2007nl/outlook2007nl.
In Blad1
Code: 
Public Sub Outloook_Reminders()
    Set oRange = Range("B2").CurrentRegion
    For lRow = 2 To oRange.Rows.Count
        With CreateObject("Outlook.Application").CreateItem(1)
            .Start = oRange.Cells(lRow, 3) + oRange.Cells(lRow, 4)
            .Duration = 30
            .Subject = oRange.Cells(lRow, 1).Value
            .ReminderSet = True
            .ReminderMinutesBeforeStart = 0
            .Save
        End With
    Next
    Set oRange = Nothing
End Sub
 
Laatst bewerkt:
Dit werkt, top, dank je wel, zal even op mijn werk kijken of het daar ook werkt in combi met de officeversie. Nu even de code uitpluizen om er weer van te leren.
 
Code aangepast in bericht#2, zelfde werking, nog wat makkelijker.
 
of

Code: 
Sub M_snb()
  sn = Range("B2").CurrentRegion

  with CreateObject("Outlook.Application")
    For j = 2 To Ubound(sn)
      With .CreateItem(1)
        .Start = sn(j,3) + sn(j, 4)
        .Duration = 30
        .Subject = sn(j,1)
        .ReminderSet = True
        .ReminderMinutesBeforeStart = 0
        .Save
      End With
    Next
  end with
End Sub
 
Ik heb de code van alphamax gebruikt en getest op het werk.Inmiddels ook al in gebruik genomen, werkt perfect.
Dank jullie voor jullie reactie.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan