dubbele agenda punten

[gaitman]

als ik de macro in mijn excel bestand gebruik en de gegevens op blad 1 na de agenda worden geexporteerd komen ze dubbel in de agenda van outlook is daar wat aan te doen ?

 

[gaitman]

of is allesw evt te expoteren naar een ander excel formulier ?

 

[Roncancio]

als ik de macro in mijn excel bestand gebruik en de gegevens op blad 1 na de agenda worden geexporteerd komen ze dubbel in de agenda van outlook is daar wat aan te doen ?

In deze topic werden de gegevens van Excel in Outlook geplaatst.
Hierbij werd ook gecontroleerd of de afspraak al gemaakt is in Outlook.

Met vriendelijke groet,


Roncancio

 

[gaitman]

Ik heb het topic gelezen maar ik heb geen top weinig kijk op excel en vbscript
zou je daar mee kunnen helpen hoe ik dit in mijn macro zet ?

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]

ik heb geen top weinig kijk op excel en vbscript

Dan kan je je beter eerst bezig houden met de basis en pas dan een stap voorwaarts maken met moeilijkere code.

 

[gaitman]

zou iemand mijn code aankunnen vullen ? en er dan bij kunnen zetten hoe het werkt ? leer ik er ook nog van

 

[gaitman]

@ Roncancio

heb jij verder nog tips hoe ik dit oplos in de form van een stukje code ?

Vriendelijke Groet

 

[Roncancio]

@ Roncancio

heb jij verder nog tips hoe ik dit oplos in de form van een stukje code ?

Vriendelijke Groet

Sub SetAppt()
 
Dim olApp As New Outlook.Application
Dim olApt As AppointmentItem
Dim Ddatum As Date
Dim sFind As String
Dim ns As Outlook.Namespace
Dim olFolder As Outlook.MAPIFolder
Dim Appt As Outlook.AppointmentItem
Dim lRij As Long
    
    Set ns = olApp.GetNamespace("MAPI")
    lRij = 2
    While ActiveSheet.Range("A" & lRij) <> ""
        sFind = "[Start] = '" & Format(ActiveSheet.Range("A" & lRij).Value + ActiveSheet.Range("D" & lRij).Value, "ddddd h:mm") & "' AND [Subject]='" & ActiveSheet.Range("B" & lRij) & "'"
        
        Set olFolder = ns.GetDefaultFolder(olFolderCalendar)
        Set Appt = olFolder.Items.Find(sFind)
    
        Set olApp = New Outlook.Application
        Set olApt = olApp.CreateItem(olAppointmentItem)

        If Appt Is Nothing Then
            Set Appt = olFolder.Items.Add
            With Appt
                .Start = ActiveSheet.Range("A" & lRij).Value + ActiveSheet.Range("D" & lRij).Value
                .End = ActiveSheet.Range("A" & lRij).Value + ActiveSheet.Range("E" & lRij).Value
                .Subject = ActiveSheet.Range("B" & lRij).Value
                .Location = ActiveSheet.Range("C" & lRij).Value
                .Body = ActiveSheet.Range("F" & lRij).Value
                .Save
            End With
        End If
        lRij = lRij + 1
    Wend
    Set olApt = Nothing
    Set olApp = Nothing
 
End Sub

Bovenstaande code gaat uit van de volgende situatie
A-kolom: datum afspraak
B-kolom: Onderwerp
C-kolom: Locatie
D-kolom: Begintijd
E-kolom: Eindtijd.
F-kolom: Tekst

Er wordt gecontroleerd of de afspraak al gemaakt is.
Zoniet dan wordt deze aangemaakt. Zoja, dan gaat de macro naar de volgende regel.

Met vriendelijke groet,


Roncancio