Pagina 1 van de 2 12 LaatsteLaatste
Resultaten 1 tot 10 van de 14

Onderwerp: Excel naar outlook agenda

  1. #1
    Sventie is offline Junior Member
    Geregistreerd
    Oct 2011
    Berichten
    29

    Standaard Excel naar outlook agenda

    Beste mensen,

    Jullie hebben me al eerder fantastisch geholpen, ik hoop dat ook dit keer dat weer lukt.

    Ik schrijf vanuit een excelbestand gegevens naar een outlookagenda. Dat gaat allemaal prima. De gegevens worden keurig naar de hoofdagenda weg geschreven. Ik heb in outlook 2003 een tweede agenda gemaakt en mijn vraag is; hoe krijg ik het voor elkaar om de gegevens naar die tweede agenda te schrijven?
    Dit is het VB wat ik nu gebruik:

    'Place your text here
    MyNote = "Wil je de hoorzitting ook in je outlook agenda boeken?."

    'Display MessageBox
    Answer = MsgBox(MyNote, vbQuestion + vbYesNo, "???")

    If Answer = vbNo Then
    'Code for No button Press
    MsgBox "OK, hoorzitting wordt niet geboekt in Outlook agenda."
    With Sheets("Totaaloverzicht")
    .Activate
    .Range("A1").Select
    End With
    Else
    For Each cl In Blad3.[L2:L2]
    If cl.Offset(0, 1) <> "" Then
    With CreateObject("outlook.Application").CreateItem(1)
    .Start = cl.Value + cl.Offset(, 2)
    .End = cl.Value + cl.Offset(, 3)
    .Subject = cl.Offset(, 1)
    .Location = cl.Offset(, 5)
    .ReminderSet = True


    Set appt = .Parent.Items.Find("[Start] = '" & Format(.Start, "ddddd h:mm") & "' AND [Subject]='" & cl.Offset(0, 1) & "' And [End] = '" & Format(.End, "ddddd h:mm") & "'")
    If Not appt Is Nothing Then appt.Delete
    .Save

    End With
    MsgBox "Hoorzitting is geboekt in Outlookagenda."
    End If

  2. # ADS
    Geregistreerd
    Always
    Berichten
    Many
     
  3. #2
    snb
    snb is offline Forum Guru
    Geregistreerd
    Jun 2008
    Berichten
    5.615

    Standaard

    Je hebt blijkbaar de code tags over het hoofd gezien ?
    Het # icoon boven het invoerscherm.

    test eens:

    Code:
    msgbox CreateObject("Outlook.application").GetNamespace("MAPI").Folders(1).name
    msgbox CreateObject("Outlook.application").GetNamespace("MAPI").Folders(2).name
    msgbox CreateObject("Outlook.application").GetNamespace("MAPI").Folders(1).folders("Postvak IN").items.count
    msgbox CreateObject("Outlook.application").GetNamespace("MAPI").Folders(2).Folders("Postvak IN").items.count
    Laatst gewijzigd door snb; 29-09-12 om 16:57.

  4. #3
    Sventie is offline Junior Member
    Geregistreerd
    Oct 2011
    Berichten
    29

    Standaard

    Sorry, ik weet niet zo goed wat je bedoelt. Ik ben een beetje aan het klungelen geweest en heb de code in een macro geplakt en krijg bij het uitvoeren van die macro eerst een melding "persoonlijke mappen" en dan een foutmelding. Hij blijft hangen op de tweede regel. Fijn dat je zo snel reageert!

    Groet,
    HAN

  5. #4
    snb
    snb is offline Forum Guru
    Geregistreerd
    Jun 2008
    Berichten
    5.615

    Standaard

    Code:
     
    on error resume next
     
    With CreateObject("outlook.Application").GetNamespace("MAPI").Folders(1).folders("Agenda").items
      .Find("[Start] = '" & Format(.Start, "ddddd h:mm") & "' AND [Subject]='" & cl.Offset(0, 1) & "' And [End] = '" & Format(.End, "ddddd h:mm") & "'").Delete  .Start = cl.Value + cl.Offset(, 2)
      With .add
        .End = cl.Value + cl.Offset(, 3)
        .Subject = cl.Offset(, 1)
        .Location = cl.Offset(, 5)
        .ReminderSet = True
        .save
      end with
    end with
    Laatst gewijzigd door snb; 30-09-12 om 12:59.

  6. #5
    Sventie is offline Junior Member
    Geregistreerd
    Oct 2011
    Berichten
    29

    Standaard

    Dank je wel voor je reactie! De code werkt prima, maar de gegevens worden nu weggeschreven naar de hoofdagenda. De gegevens moeten naar een tweede agenda met de naam "Totaal". Ik heb geprobeerd door de naam "agenda" in VB te wijzigen in "Totaal", maar dan krijg ik een foutmelding. Dus het werkt prima, maar nu nog even naar de tweede agenda......

    Bedankt voor je moeite zover!!

    HAN

  7. #6
    snb
    snb is offline Forum Guru
    Geregistreerd
    Jun 2008
    Berichten
    5.615

    Standaard

    Code:
     
    on error resume next
     
    With CreateObject("outlook.Application").GetNamespace("MAPI").Folders("Totaal").folders("Agenda").items
      .Find("[Start] = '" & Format(.Start, "ddddd h:mm") & "' AND [Subject]='" & cl.Offset(0, 1) & "' And [End] = '" & Format(.End, "ddddd h:mm") & "'").Delete  .Start = cl.Value + cl.Offset(, 2)
      With .add
        .End = cl.Value + cl.Offset(, 3)
        .Subject = cl.Offset(, 1)
        .Location = cl.Offset(, 5)
        .ReminderSet = True
        .save
      end with
    end with
    Zet anders een schermafdruk van je outlookmappen hier.

  8. #7
    Sventie is offline Junior Member
    Geregistreerd
    Oct 2011
    Berichten
    29

    Standaard

    Hoi,

    Ik krijg een foutmelding dat het object niet te vinden is. Bijgaand als het goed is een printscreen van de outlook agenda. Is dit wat je bedoelt?

    Groet,
    HAN
    Bijgevoegde Bestanden Bijgevoegde Bestanden

  9. #8
    snb
    snb is offline Forum Guru
    Geregistreerd
    Jun 2008
    Berichten
    5.615

    Standaard

    Kun je in Excel deze macro draaien en het resultaat hier plaatsen (als Excel-bestand) ?

    Code:
    Sub mappen_Outlookmappenstruktuur()
      For Each fld In CreateObject("Outlook.Application").GetNamespace("MAPI").Folders
        c01 = c01 & vbCr & vbCr & fld.Name & "|" & fld.Folders.Count & "|" & fld.Items.Count
        For Each fld1 In fld.Folders
          c01 = c01 & vbCr & "|" & fld1.Name & "|" & fld1.Folders.Count & "|" & fld1.Items.Count
          For Each fld2 In fld1.Folders
            c01 = c01 & vbCr & "||" & fld2.Name & "|" & fld2.Folders.Count & "|" & fld2.Items.Count
            For Each fld3 In fld2.Folders
              c01 = c01 & vbCr & "|||" & fld3.Name & "|" & fld3.Folders.Count & "|" & fld3.Items.Count
            Next
          Next
        Next
      Next
     
      Sheets("Sheet1").Cells(1).Resize(UBound(Split(c01, vbCr)) - 1) = Application.Transpose(Split(Mid(c01, 3), vbCr))
      Sheets("Sheet1").Columns(1).TextToColumns , 1, -4142, , False, False, False, False, True, "|"
    End Sub

  10. #9
    Sventie is offline Junior Member
    Geregistreerd
    Oct 2011
    Berichten
    29

    Standaard

    Geweldig dat je met zo wilt helpen en dat terwijl je niet eens weet dat ik vandaag jarig ben!!

    Maar als ik de macro draai krijg ik de melding "Het subscript valt buiten het bereik".....

  11. #10
    snb
    snb is offline Forum Guru
    Geregistreerd
    Jun 2008
    Berichten
    5.615

    Standaard

    je moet natuurlijk wel kijkenof jouw werkboek een werkblad met de naam "sheet1" bevat.
    Zoniet wijzig dan de naam van het werkblad conform de macro, of pas in de macro de werkbladaanduiding aan.

Pagina 1 van de 2 12 LaatsteLaatste

Gelijkwaardige Onderwerpen

  1. Gegevens van Excel naar Outlook agenda
    Door schuirink in forum Afgehandelde vragen
    Reacties: 15
    Laatste Bericht: 21-03-12, 20:09
  2. Error excel agenda naar outlook
    Door Lucicel in forum Afgehandelde vragen
    Reacties: 6
    Laatste Bericht: 12-11-10, 14:43
  3. agenda outlook naar excel sheet
    Door trucker10 in forum Afgehandelde vragen
    Reacties: 9
    Laatste Bericht: 18-06-10, 23:22
  4. Excel naar een shared outlook agenda
    Door boemboem in forum Afgehandelde vragen
    Reacties: 0
    Laatste Bericht: 09-04-08, 11:57
  5. excel & vb & outlook agenda
    Door boemboem in forum Afgehandelde vragen
    Reacties: 28
    Laatste Bericht: 09-04-08, 09:56

Forum Rechten

  • Je mag geen nieuwe onderwerpen plaatsen
  • Je mag geen reacties plaatsen
  • Je mag geen bijlagen toevoegen
  • Je mag jouw berichten niet wijzigen
  •