vanuit excel een afspraak in outlook agenda toevoegen

[Friend]

Beste Forummers,

Via een excel bestand wil ik afspraken toevoegen aan de Agenda in Outlook.

Nu heb ik dit kunnen realiseren in de bijlage met dank aan de in de bijlage genoemde link.

Ik heb diverse velden toegevoegd en enkele aanpassingen gedaan.

Wat mij echter niet lukt is om de afspraak op de gewenste begin- en eindtijd te plaatsen.
Begintijd en eindtijd worden gevonden in kolom e en f.

Hoe zou dit gerealiseerd kunnen worden in de code?

Friend

 

[snb]

Zie:
https://www.snb-vba.eu/VBA_Outlook_external.html#L_10.1

 

[Friend]

Snb,

Hartelijk dank voor je reactie:thumb:

Misschien zie ik het verkeerd maar in jouw voorbeeld begint de afspraak om 12:30.

  .Start = DateValue("06-03-2019") + TimeValue("12:30")

Nu heb ik dit geprobeerd:

 .Start = DateValue(oWS.Cells(i, 3)) + TimeValue(oWS.Cells(i, 5))

Maar dat werkt niet (typen komen niet overeen).

Hoe link ik dit aan mijn begin en eindtijd kolomwaarden
Eindtijd wordt dus dan opgebouwd door de duration vermelding.

Hoe krijg ik dan met jouw code mijn gewenste tijden erin?

Friend

 

[snb]

Beperk het lezen/schrijven uit/naar een werkblad tot het minimum; in dit geval 1 keer.

Sub M_snb()
  sn = Blad1.UsedRange
    
  With CreateObject("Outlook.Application")
    For j = 2 To UBound(sn)
      .Start = sn(j, 3) + sn(j, 5)
      .Duration = sn(j, 6) - sn(j, 5)
      .Subject = "Birthday " & sn(j, 2) & " " & sn(j, 1)
      .Location = sn(j, 10)
      .Body = sn(j, 11)
      .MeetingStatus = 0
      .alldayevent = sn(j, 13) = "j"
      .ReminderSet = True
      .ReminderMinutesBeforeStart = sn(j, 7)
      .Save
    Next
  End With
End Sub

 

[Friend]

Snb,

Wow dat is een mooie strakke/korte code.

Heb hem onder een knop gezet. Krijg alleen de volgende foutmelding:



Waar kan dit aan liggen?

Friend

 

[snb]

er moet een regel geel gemarkeerd zijn. Verwijder die. of zet er een commentaarteken voor.

 

[Friend]

Snb,

PRINTSCREEN VAN DE REGEL:


Als ik daar een commentaarteken voorzet springt de volgende regel naar geel.

In de bijlage opnieuw even het bestand met jouw code daarin.

Friend

 

[JEC.]

De with regel mist iets

With CreateObject("Outlook.Application").CreateItem(3)

 

[Friend]

JEC,

Hartelijk dank voor je reactie:thumb:

Ik krijg echter nog steeds een foutmelding .... ????



Wat doe ik fout?

Friend

 

[JEC.]

Weet je zeker dat die cellen een datum/tijd waarde hebben?

 

[Friend]

JEC,

Ja ik kan er dacht ik niets anders van maken:

vies??



Advies

Friend

 

[JEC.]

Heb het niet getest maar volgens mij heb je een datum én een tijd nodig.

Sn(j, 3) als datum
Sn(j, 5) als tijd

 

[snb]

Verwijder de referentie in de VBEditor (tools, references) naar outlook 16

Sub M_snb()
  sn = Blad1.cells(1).currentregion
    
  With CreateObject("Outlook.Application")
    For j = 2 To UBound(sn)
      with .createitem(1)
         .Start = sn(j, 3) + sn(j, 5)
         .Duration = sn(j, 6) - sn(j, 5)
         .Subject = "Birthday " & sn(j, 2) & " " & sn(j, 1)
         .Location = sn(j, 10)
         .Body = sn(j, 11)
         .MeetingStatus = 0
         .AllDayEvent = sn(j, 13) = "j"
         .ReminderSet = True
         .ReminderMinutesBeforeStart = sn(j, 7)
         .Save
      end with
    Next
  End With
End Sub

Je had dankzij de link kunnen zien welke parameter nodig is voor een afspraak Createitem(1)

Een taak heeft 3 als parameter

 

[HSV]

Je bent me net voor @snb, maar moest eerst het hele verhaal doornemen of het nu om taken of om de agenda ging.

Ik wilde er net op reageren.
Bij taken hoort .StartDate =

 

[snb]

@HSV

Sorry.
Je hebt gelijk.
Zelfs binnen Outlook zijn de namen van eigenschappen voor gelijksoortige zaken niet consistent. Jammer.

 

[Friend]

JEC, HSV en Snb,

Bedankt voor al jullie geduld en inbreng.

Snb,

Je had gelijk ik had het moeten zien. Maar ja misschien te gehaast

Het werkt na jouw aangeven van aanpassingen, begintijd wordt nu goed neergezet ...

Alleen de eindtijd komt er nog niet in.

Wat kan hier nog fout gaan denk je?

Friend

 

[snb]

Jongeman, het staat allemaal te lezen in de link die ik plaatste.
Wat je zelf vindt onthoud je beter.
Efkes zelf in de benen.

 

[Friend]

Snb,

Bedankt voor al je input!

Wat voor jullie als kenners gesneden koek is is voor mij als leek toch wat lastiger ook al wordt het vanuit jullie kennis uitgelegd.

Nogmaals dank.

Friend

 

[JEC.]

@snb Wat je zelf vindt onthouD je beter

 

[snb]

@JEC

Dat geldt a fortiori voor deze terechte correctie ! :thumb: