Beste,
Al een paar jaar bestellen we vanuit Access ons spullen per mail, dat was een beetje in het vergeetboek geraakt en er werd weer gewoon per mail besteld zonder Access, en waar hoort die bestelling nu weer bij....
We gaan dat echter weer volop gebruiken en ze willen naast de tekst die wordt meegestuurd er nu ook een logo onder hebben
Met deze code werken we nu.
Dat gaat goed.
Ik ben wat aan het vogelen geweest maar ik kom er niet uit en kan er ook niet echt iets over vinden.
Het is niet de bedoeling om dat als bijlage te versturen, maar als plaatje onder de tekst.
Met het toevoegen van de volgende code heb ik het geprobeerd, maar dat gaat niet goed.
Dit komt van: https://www.mrexcel.com/board/threa...e-end-of-the-email-with-attachements.1113773/
Ik vermoed dat dit niet geschikt voor Access
Weet iemand of dit kan en hoe dat kan?
Al een paar jaar bestellen we vanuit Access ons spullen per mail, dat was een beetje in het vergeetboek geraakt en er werd weer gewoon per mail besteld zonder Access, en waar hoort die bestelling nu weer bij....
We gaan dat echter weer volop gebruiken en ze willen naast de tekst die wordt meegestuurd er nu ook een logo onder hebben
Met deze code werken we nu.
Dat gaat goed.
Code:
Private Sub Knop18_Click()
On Error GoTo Err_Knop18_Click
Me.Refresh
Dim stDocName As String
stDocName = "UitdraaiBestelling"
DoCmd.OpenReport stDocName, acPreview, , "Id_bestel=" & Me.Id_Bestel
Rem DoCmd.SendObject acSendReport, "UitdraaiObafFactuuur", "pdf", [Factuurmail], , , "Factuur_" & Me.Ordernummer.Value & "_" & Me.Id_Bestel.Value & "_" & Date, "Geachte heer/mevrouw," & vbCrLf & vbCrLf _
DoCmd.SendObject acSendReport, "UitdraaiBestelling", "pdf", "invullen@invullen.nl", , , "Bestelling nr " & Me.Id_Bestel.Value, "Geachte leverancier," & vbCrLf & vbCrLf _
& "In de bijlage ontvangt u een bestelling voor te leveren goederen." & vbCrLf _
& "Wilt u het ordernummer vermelden op alle correspondentie en de factuur?" & vbCrLf & vbCrLf _
& "Met vriendelijke groet," & vbCrLf _
& "Bedrijf " & vbCrLf _
& "Straat 100 " & vbCrLf _
& "0000 AA Plaats " & vbCrLf & vbCrLf _
& "Tel. 0000 000000 " & vbCrLf _
& "Web: www.bedrijf.nl ", True, ""
Exit_Knop18_Click:
Exit Sub
Err_Knop18_Click:
MsgBox Err.Description
Resume Exit_Knop18_Click
End Sub
Ik ben wat aan het vogelen geweest maar ik kom er niet uit en kan er ook niet echt iets over vinden.
Het is niet de bedoeling om dat als bijlage te versturen, maar als plaatje onder de tekst.
Met het toevoegen van de volgende code heb ik het geprobeerd, maar dat gaat niet goed.
Code:
.Attachments.Add "Y:\21 Projectmanager\LogoBestellingPM.jpg"
.HTMLBody = "<html>" & "******>" & sBody & _
"<img src=cid:logo.jpg height=[COLOR=#ff0000]150 [/COLOR]width=[COLOR=#ff0000]150[/COLOR]>" & _
"</body>" & "</html>"
Dit komt van: https://www.mrexcel.com/board/threa...e-end-of-the-email-with-attachements.1113773/
Ik vermoed dat dit niet geschikt voor Access
Weet iemand of dit kan en hoe dat kan?