• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

exporteren naar agenda

Status
Niet open voor verdere reacties.
G

gaitman

Gebruiker
Lid geworden
22 mrt 2008
Berichten
207
als ik een rij met blad met gegevens heb kan ik die dan ook exporteren na de agenda van outlook ?

het gaat om de gegevens op blad 1 die moeten dan op de juiste datum komen te staan in de outlook agenda met natuurlijk de begintijd en de eindtijd
 

Bijlagen

Code: 
Sub afspraak()
  sq=sheets(1).usedrange
  for j=2 to ubound(sq)
    With CreateObject("Outlook.Application").CreateItem(1)
        .Start = DateValue(sq(j,1)) + TimeValue(sq(j,4))
        .Duration = sq(j,3)
        .Subject = sq(j,2)
        .Save
    End With
  next
End Sub

De Excelgegevens worden in matrix sq gezet.
Vanaf rij 2 wordt per rij een nieuw agenda-item aangemaakt.
De eigenschappen start (datum + beginstijdstip), onderwerp en duur van de afspraak worden uit de matrix ingelezen.
Met Save wordt het nieuwe item daadwerkelijk opgeslagen.
 
Laatst bewerkt:
nou dat is vlot maar waar moet ik die tekst kwijt ?
het is vbscript ?
 
Code: 
Sub addAppt()

    Dim oApp As Object
    Dim oNameSpace As Namespace
    Dim myItem As AppointmentItem

    Set oApp = New Outlook.Application
    Set oNameSpace = oApp.GetNamespace("MAPI")

    Set myItem = oApp.CreateItem(olAppointmentItem)

    With myItem
        .Subject = "Deutsche Bank"
        .Start = #3/28/2009 9:15:00 AM#
        .Duration = 60
        .Save
    End With
    
End Sub

Dit doet 1 afspraak. Zet dit in een loopje en je bent klaar.

Wigi
 
Zet deze in een macromodule via de VBEditor (alt-F11)
 
snb zei:
Zet deze in een macromodule via de VBEditor (alt-F11)
Klik om te vergroten...

Hartelijk dank alvast ik heb het in een module gezet en proberen te starten maar dan kriijg ik de melding "fout 13 de typen komen niet overeen"

ideeen ?
 
gaitman zei:
Hartelijk dank alvast ik heb het in een module gezet en proberen te starten maar dan kriijg ik de melding "fout 13 de typen komen niet overeen"

ideeen ?
Klik om te vergroten...

Op welke regel in de code gebeurt dit?
 
Dit is wel getest:

Code: 
Sub afspraak()
  sq = Sheets(1).UsedRange
  For j = 2 To UBound(sq)
    With CreateObject("Outlook.Application").CreateItem(1)
        .Start = CDbl(sq(j, 1)) + CDbl(sq(j, 4))
        .End = CDbl(sq(j, 1)) + CDbl(sq(j, 5))
        .Subject = sq(j, 2)
        .Save
    End With
  Next
End Sub

Wigi
 
Code:
crossposting wordt in fora niet gewaardeerd.

Gezien jouw bestand werkt:

Code: 
Sub afspraak()
  sq=sheets(1).usedrange
  for j=2 to ubound(sq)
    With CreateObject("Outlook.Application").CreateItem(1)
        .Start = sq(j,1) + sq(j,4)
        .Duration = sq(j,3)
        .Subject = sq(j,2)
        .Save
    End With
  next
End Sub
 
Laatst bewerkt:
Wigi zei:
Dit is wel getest:

Code: 
Sub afspraak()
  sq = Sheets(1).UsedRange
  For j = 2 To UBound(sq)
    With CreateObject("Outlook.Application").CreateItem(1)
        .Start = CDbl(sq(j, 1)) + CDbl(sq(j, 4))
        .End = CDbl(sq(j, 1)) + CDbl(sq(j, 5))
        .Subject = sq(j, 2)
        .Save
    End With
  Next
End Sub

Wigi
Klik om te vergroten...

maar hoe voeg ik het in mijn excel bestand ?
 
Wigi zei:
Dat heeft Snb toch al geschreven?



Maak anders nog op een ander Excel forum een user aan en vraag het daar ook.
Klik om te vergroten...

Dat mag niet van Snb dan ben ik volgens hem aan het crosposten.

maar ik heb hem er nu instaan maar kan hem niet draaien hij geeft aan dat dit komt door de beveiliging instellingen.

terwijl het een werkmap is met ingeschakelde macro's !

nog ideeen ?
 
gaitman zei:
terwijl het een werkmap is met ingeschakelde macro's !

nog ideeen ?
Klik om te vergroten...

Vertrek van een maagdelijk bestaandje ( een opgeslagen kopie ) en plaats de laatste code (die op de 2 fora's staan ), ik heb geen outlook kan het niet testen .Soms blijft er rommel hangen in en bestandje door plakken / wissen of clean alles eens op , kan ook al veel helpen .
 
gaitman zei:
Dat mag niet van Snb dan ben ik volgens hem aan het crosposten.
Klik om te vergroten...

De ironie in mijn reactie is jou dus blijkbaar ontgaan.

Anyway, doe hetgeen Trucker10 voorstelt.

Lukt het dan nog niet, geef de precieze foutmelding, op welke regel code dit is, en zie dat je een gewone simpele macro kan draaien zoals bvb.

Code: 
Sub mijnmacro()
    MsgBox "Hello world"
End Sub
 
Sub afspraak()
sq = Sheets(1).UsedRange
For j = 2 To UBound(sq)
With CreateObject("Outlook.Application").CreateItem(1)
.Start = CDbl(sq(j, 1)) + CDbl(sq(j, 4))
.End = CDbl(sq(j, 1)) + CDbl(sq(j, 5))
.Subject = sq(j, 2)
.Save
End With
Next
End Sub

de code hier gekregen heb ik aan het werk
ik krijg alleen niet de eindtijd maar de begintijd + een aantal minuten in de agenda

maar hoe moet ik dit lezen ten opzichte van het excel bestand ?

hoe verklaar ik de volgende zin ?


.Start = CDbl(sq(j, 1)) + CDbl(sq(j, 4))
 
gaitman zei:
hoe verklaar ik de volgende zin ?

.Start = CDbl(sq(j, 1)) + CDbl(sq(j, 4))
Klik om te vergroten...

De starttijd voor de appointment is een dag (CDbl(sq(j, 1))) wat uit kolom 1 komt, plus een tijdswaarde (CDbl(sq(j, 4))) wat uit kolom 4 komt. Gewoon de som.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan