Een vertegenwoordiger houd zijn klantenbestand bij in Excel. Daarin word ook aangegeven wanneer er weer naar een klant moet worden gegaan met onderwerp.
De vraag die rees bij bij de vertegenwoordiger was of het Excel klantenbestand gekoppeld kan worden aan de agenda van outlook.
Tijdens googlen ben ik een macroscript tegengekomen dat ervoor kan zorgen dat dit gebeurt ( hierbeneden geplakt )
Het probleem waar ik tegenop loop is het volgende:
Als ik de code kopieer in de VBA functie van excel 2007 werkt dit goed met het voorbeeld dat erin staat ( "Discuss Whitefield Contract" ) met tijd en datum. Dit is zichtbaar in outlook.
De gegevens achter .SUBJECT, .START en . END zijn variabel in de code.
Deze moeten verandert worden door een zgn. "lus of loop" deze zouden dan aangeven waar en welke gegevens outlook krijgt uit het Excel klantenbestand.
Hoe de lus of loops ingevoerd stopt mijn kennis en kan ik verder niets over vinden. Hier loop ik dus vast.
Ik hoop dat iemand mij verder zou kunnen helpen!
Mvg,
Wot
Code
Sub MakeOutlookAppointment()
'Example of Outlook automation using late binding
'Creates an appointment in Outlook
Dim olApp As Object 'Reference to Outlook
Dim olAppointment As Object 'Reference to Outlook Appointment
Dim olNameSpace As Object 'Reference to Outlook NameSpace
Dim olFolder As Object 'Dummy reference to initialise Outlook
Const olAppointmentItem = 1 'Outlook intrinsic constants not available
Const olFolderInbox = 6 'Outlook intrinsic constants not available
'Create link to Outlook
Set olApp = CreateObject("Outlook.Application")
Set olNameSpace = olApp.GetNamespace("MAPI")
Set olFolder = olNameSpace.GetDefaultFolder(olFolderInbox)
Set olAppointment = olApp.CreateItem(olAppointmentItem)
'Set details of appointment
With olAppointment
.Subject = "Discuss Whitefield Contract"
.Start = DateSerial(2007, 2, 26) + TimeSerial(9, 30, 0)
.End = DateSerial(2007, 2, 26) + TimeSerial(11, 30, 0)
.ReminderPlaySound = True
.Save
End With
'Release object variable
Set olApp = Nothing
End Sub
De vraag die rees bij bij de vertegenwoordiger was of het Excel klantenbestand gekoppeld kan worden aan de agenda van outlook.
Tijdens googlen ben ik een macroscript tegengekomen dat ervoor kan zorgen dat dit gebeurt ( hierbeneden geplakt )
Het probleem waar ik tegenop loop is het volgende:
Als ik de code kopieer in de VBA functie van excel 2007 werkt dit goed met het voorbeeld dat erin staat ( "Discuss Whitefield Contract" ) met tijd en datum. Dit is zichtbaar in outlook.
De gegevens achter .SUBJECT, .START en . END zijn variabel in de code.
Deze moeten verandert worden door een zgn. "lus of loop" deze zouden dan aangeven waar en welke gegevens outlook krijgt uit het Excel klantenbestand.
Hoe de lus of loops ingevoerd stopt mijn kennis en kan ik verder niets over vinden. Hier loop ik dus vast.
Ik hoop dat iemand mij verder zou kunnen helpen!
Mvg,
Wot
Code
Sub MakeOutlookAppointment()
'Example of Outlook automation using late binding
'Creates an appointment in Outlook
Dim olApp As Object 'Reference to Outlook
Dim olAppointment As Object 'Reference to Outlook Appointment
Dim olNameSpace As Object 'Reference to Outlook NameSpace
Dim olFolder As Object 'Dummy reference to initialise Outlook
Const olAppointmentItem = 1 'Outlook intrinsic constants not available
Const olFolderInbox = 6 'Outlook intrinsic constants not available
'Create link to Outlook
Set olApp = CreateObject("Outlook.Application")
Set olNameSpace = olApp.GetNamespace("MAPI")
Set olFolder = olNameSpace.GetDefaultFolder(olFolderInbox)
Set olAppointment = olApp.CreateItem(olAppointmentItem)
'Set details of appointment
With olAppointment
.Subject = "Discuss Whitefield Contract"
.Start = DateSerial(2007, 2, 26) + TimeSerial(9, 30, 0)
.End = DateSerial(2007, 2, 26) + TimeSerial(11, 30, 0)
.ReminderPlaySound = True
.Save
End With
'Release object variable
Set olApp = Nothing
End Sub
