2 mail bijlages versturen vanuit acces

Status
Niet open voor verdere reacties.
Ik zal je met één fout op weg helpen, en dan weet je gelijk waarom "Het pad bestaat niet" de foutmelding is.
Jouw code:
Code: 
     CurrentProject.Path & "q fakturen basis"
Mijn code:
Code: 
     CurrentProject.Path & "[B][COLOR="#0000FF"]\[/COLOR][/B]Factuurnr
 
Currentproject.Path haalt wel het pad op, maar zet geen backslash achter de laatste map. Als jij (zoals je nu doet) daar gelijk een bestandsnaam achteraan plakt, dan is die bestandsnaam dus geen bestandsnaam, maar onderdeel van de mapnaam. En die bestaat niet. Vandaar de foutmelding. Bij mij staat die backslash er dus wèl. Andere fout: je wilt een rapport als bijlage meesturen, maar dat kan helemaal niet; je kunt alleen bestaande documenten meesturen. Vandaar mijn code om van je rapport eerst een pdf te maken op een bepaalde locatie. Dan heb je wél een fysiek bestand. Heb je eenmaal een bestand, dan is het overbodig om het rapport nog te openen. En dat was dus ook een vraag: waarom open je het rapport nog? De derde fout had te maken met de parameters die je meegeeft bij het toevoegen van de bijlage.
 
Maak een stroomschema hoe de afhandeling van alles moet gaan, op een wijze zoals OctaFish beschrijft.... en dan vul je de stappen met de juiste code in....
Zo'n werkwijze leerde ik al met programmeren op het college in 1969....
Ik denk dat gestructureerd werke niet veel veranderd is in al die tijd, wel de talen.....bij jou nu VB...
 
Allen,
Ik ben er uitgekomen met de hulp van een goede vriend
Dit is het geworden enkel de functie View werkt nog niet ( staat nu als commentaar)


Private Sub Knop143_Click()
''Dim appOutLook As Outlook.Application
''Dim MailOutLook As Outlook.MailItem
Dim appOutLook As Object
Dim MailOutLook As Object

''Set appOutLook = New Outlook.Application
''Set MailOutLook = appOutLook.CreateItem(olMailItem)
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(0)

With MailOutLook

.To = Me.[KL-EMAIL]
.Subject = "Factuur " & Me.faktuurnr & " verzonden op " & Date
.HTMLBody = "Geachte, Bijgevoegd factuur"

DoCmd.OpenReport "q fakturen basis", acViewPreview, "", "", acNormal
DoCmd.OutputTo acReport, "q fakturen basis", acFormatPDF, CurrentProject.Path & "\Factuurnr " & Me.faktuurnr & ".pdf", False
.Attachments.Add CurrentProject.Path & "\Factuurnr " & Me.faktuurnr & ".pdf"
.Attachments.Add "\\NETWERKSCHIJF\backup\Backuppr\facturatie\Verkoopsvoorwaarden.pdf"

.Send

' '.View Gebruik View als je de mail eerst wil zien op het scherm
End With
MsgBox "Er is een mail gestuurd naar " & Me.[KL-EMAIL]
 
En die oplossing is dus precies wat Octafish je vertelde.
 
En als je het netjes wilt doen, dan zo:
Code: 
Private Sub Knop143_Click()
Dim appOutLook As Object
Dim MailOutLook As Object

    Set appOutLook = CreateObject("Outlook.Application")
    Set MailOutLook = appOutLook.CreateItem(0)
    DoCmd.OutputTo acReport, "q fakturen basis", acFormatPDF, CurrentProject.Path & "\Factuurnr " & Me.faktuurnr & ".pdf", False
    With MailOutLook
        .To = Me.[KL-EMAIL]
        .Subject = "Factuur " & Me.faktuurnr & " verzonden op " & Date
        .HTMLBody = "Geachte, Bijgevoegd factuur"
        .Attachments.Add CurrentProject.Path & "\Factuurnr " & Me.faktuurnr & ".pdf"
        .Attachments.Add "\\NETWERKSCHIJF\backup\Backuppr\facturatie\Verkoopsvoorwaarden.pdf"
        .Send
        ' '.View Gebruik View als je de mail eerst wil zien op het scherm
    End With
    MsgBox "Er is een mail gestuurd naar " & Me.[KL-EMAIL]
End Sub

Wel leuk dat die vriend met exact dezelfde oplossing aan komt als ik :d.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan