Userform Outlook

Status
Niet open voor verdere reacties.
J

Jeffie85

Gebruiker
Lid geworden
12 jun 2012
Berichten
106
Ben op zoek naar een Macro / Userform in MS outlook die de volgende velden opent en weg moet schrijven in een gedeelde agenda in Outlook;

- Onderwerp ( keuze uit; 1. buiten de deur, wel tel. bereikbaar, 2. buiten de deur, niet beschikbaar )
- Tijd van
- tijd tot
- afzender ( denk dat die autom. de gebruiker die ingelogd is, hierbij toevoegt )
- ok ( na klikken hierop, gelijk wegschrijven in de gedeelde agenda )

Kan er weinig van vinden op het wereld wijde web, alleen op deze site, nog paar bruikbare dingen, maar dan schrijft die het direct weg ipv zelf nog wat in kunnen vullen en dan verzenden;
http://www.snb-vba.eu/VBA_Outlook_external.html

Sub afspraak_nieuw()
With CreateObject("Outlook.Application").CreateItem(1)
.subject = "Jaarvergadering"
.Start = DateValue("06-03-2019") + TimeValue("12:30")
.Duration = 45
.Location = "Vergaderzaal C"
.Save
End With
End Sub
Klik om te vergroten...
 
Als je in Outlook een formulier maakt met 5 Textboxes en die de volgende namen geeft:
txtSubject, txtStartDate, txtStartTime, txtDuration en tstLocation

kan je die voorbeeldcode zo achter een knopje zetten:
Code: 
 Sub btnSave_Click()
    With CreateObject("Outlook.Application").CreateItem(1)
        .Subject = txtSubjext
        .Start = DateValue(txtStartDate) + TimeValue(txtStartTime)
        .Duration = txtDuration
        .Location = txtLocation
        .Save
    End With
End Sub
 
Bedankt voor je reactie. Helemaal super.

Hoe kan ik een item in een gedeelde agenda krijgen.
Nu komt die standaard in mijn eigen Agenda namelijk

Wil het item bijv. in de gedeelde mappen agenda 'test'.

Bvd.
 
Die heb ik nu gevonden hoe het moet.
per laag moet je hem definieren met .Folders.... en aan het eind .Items.Add
dus hij lukt... :)
 
Kan je ook met dit formuliertje alvast een standaard invullen.
Dus bij onderwerp bijvoorbeeld; 'Afwezig'

Datum = nu
Tijd = Nu

etc...?

en dat die na het opslaan ook wordt verzonden naar een e-mailadres?
 
Laatst bewerkt:
Dat doe je bij de Initialize van je formulier.
Code: 
Private Sub UserForm_Initialize()
    Me.txtSubjext = "Afwezig"
    Me.txtStart = Now()
    ...
End Sub
 
Als ik nu dit doe, dan komt er geen datum of tijd in te staan helaas

Private Sub btnSave_Click()
Me.txtStartDate = Now()
Me.txtStartTime = Now()
With CreateObject("Outlook.Application").GetNamespace("MAPI").Folders("Openbare mappen").Folders("Alle openbare mappen").Folders("Test").Items.Add
.Subject = txtSubject
.Start = DateValue(txtStartDate) + TimeValue(txtStartTime)
.Duration = txtDuration
.Location = txtLocation
.Save
MsgBox "Je afwezigheid is in de agenda gezet!", vbInformation, "Afwezigheid"
End With
Unload Me
End Sub
Klik om te vergroten...

En wat is de code om het na het opslaan gelijk aan test@test.nl te mailen?
 
Kijk wat Octafish schreef, daar kan je ook de datum en tijd alvast laten invullen. Zoals je dat nu hebt gedaan wordt het pas gevuld als je op de knop drukt.
 
Het lijkt me dat je je eerst eens moet verdiepen in de structuur van en gebeurtenissen binnen een Userform.

UF.jpg
 
Ik heb hem. Top. Bedankt :)

En hoe kan ik na op de save button gedrukt te hebben een mailtje sturen met bijv. alleen maar onderwerp?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan