krijg mijn bijlage niet in mail

[jo geuens]

heb al vanalles geprobeerd maar tot nu tot weinig succes nischien hier iemand die me verder kan helpen .

Dim OutApp As Object
 Dim strbody As String
    Dim OutMail As Object


    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem '(olMailItem)
    Set myAttachments = OutMail.Attachments

    strbody = DLookup("[aanvrager ]", "Gebruikers", "[ID]= " & Nz([aanvrager], 0)) & " heeft een nieuwe aanvraag ingediend." & vbNewLine & vbNewLine & _
        "Aanvraag nummer: " & Me.ID & "  Prior: " & Me.Prior & vbNewLine & _
      vbNewLine & _
        "  Voor Project: " & DLookup("[Project]", "Projecten", "[ID]= " & Nz([Project], 0)) & vbNewLine & _
        "  Taak: " & DLookup("[Taak ]", "Taak", "[ID]= " & Nz([Taak], 0)) & vbNewLine & _
        "  Omschrijving : " & DLookup("[Taak ]", "Taak", "[ID]= " & Nz([Taak], 0)) & vbNewLine & _
        " Opmerking: " & Me.Opmerking & vbNewLine & _
        vbNewLine & vbNewLine & _
        "Groeten,"
            '" myAttachments :" & Me.Attachment30 & vbNewLine & _
    On Error Resume Next
    With OutMail
        .To = Me.Voorcc1 & ";" & Me.Voorcc2 & ";" & Me.Voorcc3
        .CC = Me.mailcc & ";" & Me.mailcc2
        .BCC = ""
        .subject = "Aanvraag nummer " & Me.ID
        .Body = strbody
'         If Not IsMissing(AttachmentPath) Then
'         Set objOutlookAttach = .Attachments.Add(AttachmentPath)
        .myAttachments = Me.Attachment30
        .Display
    End With
         On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing


 DoCmd.Close acForm, "Form Aanvraag", acSaveYes
 End If
End

 

[Elsendoorn2134]

Jo,

Volgens mij moet .Attachments.Add(AttachmentPath)
voldoende zijn om de gegevens toe te voegen.

Ik zou wel even kijken in de procedure IsMissing(AttachementPath) deze controleert niet of een bestand wel of niet
aanwezig is.

Veel Succes.

 

[jo geuens]

hoi Elsendoorn2134

heb ik geprobeerd maar lukt niet

hier een voorbeeld bestandje dat maakt het misschien makkelijker

Bekijk bijlage planning1.1.rar

zo ik hoop dat het beter lukt

 

[Elsendoorn2134]

Jo,

Je gebruikt in je bestand een besturingselement genaamd "bijlage".
Dit wordt gebruikt om in een Access database, bestanden toe te voegen aan de database.
Hiervoor wordt het bestand in de Access database zelf ingelezen, er wordt geen verwijzing opgenomen
naar het bestand op de harde schijf.
Het Email programma kan alleen bestanden opnemen die hij direct van de harde schijf leest.
Je kan dan ook geen bestanden aan een E-mail toevoegen die niet op de harde schijf staan.
Ik stel voor dat je in plaats van een besturingselement als bijlage een ander element gebruikt waar je
de bestandslocatie in opslaat. Op basis van deze bestandslocatie kun je dan via
Outmail.Attachments.Add(bestandslocatie) de attachment toevoegen.

Veel Succes.