Outlookmap aanmaken

Status
Niet open voor verdere reacties.
J

Jacobusje

Gebruiker
Lid geworden
15 apr 2021
Berichten
89
Beste,

De vraag die ik ga stellen is niet echt een probleem, maar meer een uitbreiding/verbetering.

Met onderstaande code maken we voor projecten een stukje standaard mappenstructuur aan op de server.

Code: 
Private Sub Knop200_Click()
On Error GoTo Err_Knop200_Click

Me.Refresh

    MkDir "Y:\20 Projecten\01 Calculatie\" & ID_Project & " " & Achternaam & " " & ProjectOmschrijving & " " & PlaatsWerk
    
    Dim strPath As String

    strPath = "Y:\20 Projecten\01 Calculatie\" & ID_Project & " " & Achternaam & " " & ProjectOmschrijving & " " & PlaatsWerk & "\"

    MkDir strPath & "\01 Calculatie"
    MkDir strPath & "\02 Gegevens opdrachtgever"
    MkDir strPath & "\03 Constructie"
    MkDir strPath & "\04 Gegevens derden"
    MkDir strPath & "\05 Verstuurd tekenwerk"
    MkDir strPath & "\06 Bestellingen"
    MkDir strPath & "\07 Werkplaats"
    MkDir strPath & "\08 Factureren"
    MkDir strPath & "\09 IFC"
    MkDir strPath & "\10 Planning"
    MkDir strPath & "\20 Onderleggers"
    MkDir strPath & "\30 Fotos"
    

Exit_Knop200_Click:
    Exit Sub

Err_Knop200_Click:
    MsgBox Err.Description
    Resume Exit_Knop200_Click
    
End Sub

Daarnaast hebben we een Outlook account/gegevensbestand waar iedereen bij kan.
Kunnen we via een andere knop ook een map in Outlook aanmaken met de gegevens "& ID_Project & " " & Achternaam & " " & ProjectOmschrijving & " " & PlaatsWerk" uit Access?

Reacties zijn welkom.
 
Dan moet je een outlook object gebruiken. Daarmee heb je toegang tot alle methodes en eigenschappen van outlook .
 
Ik heb gezocht op "outlook objecten"

Daardoor kwam ik op de site http://www.snb-vba.eu/VBA_Outlook_external.html#L_1.4
Daarop staat een bult informatie over Outlook.
Een klein stukje gaat over de mappenstructuur.

Mijn gevoel zegt dat ik het in die hoek moet zoeken :rolleyes: dat is ook zo ongeveer het enige wat ik er van begrijp.
Alleen de code "MkDir "Y:\20 Projecten\01 Calculatie" & ID_Project & " " & Achternaam & " " & ProjectOmschrijving & " " & PlaatsWerk" moet ik dan ombouwen richting Outlook, submappen zijn niet nodig.

Kan iemand helpen hoe ik dat voor elkaar krijg.
Vast bedankt.
 
Om een mail te zenden gebruik ik de volgende eigenschappen:

Code: 
 Dim appOutlook As New Outlook.Application
    Dim msg As Outlook.MailItem
    Dim intpos As Integer
    
    Set msg = appOutlook.CreateItem(olMailItem)
    strTo = "mailadres@xxxx.com"
    msg.To = strTo
    msg.Subject = strSubject
    msg.Body = strBody
    msg.Attachments.Add (strFile)
SendMessageNow:
    msg.Send

meer info over andere eigenschappen en methodes kan je vinden op https://docs.microsoft.com/en-us/office/vba/api/overview/outlook/object-model
 
Bedankt voor je reactie.
Mail verzenden heb ik al in gebruik.

Maandag hoop ik wat beter naar de link te kijken.
 
Beste NoellaG,

Dat gaat boven mijn pet hoor.
Veel te veel mogelijkheden om op het spoor van de mappenstructuur te komen.

We blijven het gewoon kopiëren-plakken uit de verkenner :(

Toch bedankt.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan