Sub PDFEmail_bestelling()
Set OutApp = GetObject(, "Outlook.Application")
Set OutApp = CreateObject("Outlook.Application")
Set OutAccount = OutApp.Session.Accounts.Item(2)
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
xOutMsgA = "<i>Dit is een automatisch verstuurde mail. Op deze mail kan niet geantwoord worden. Indien je toch wenst te reageren, klik dan <u><a href=""http://www.tuinhuizenfabrikant.be/nl/levertermijn"">hier</a></u>.</i>"
xOutMsgB = "Beste klant,<br/><br />" & _
"Wij wensen u nogmaals te bedanken voor het plaatsen van uw bestelling en het vertrouwen dat u in ons stelt.<br/><br />" & _
"Onderstaand vindt u een kort overzicht terug van het verdere verloop van uw bestelling.<br /><br />"
xOutMsg0 = "<b>HET VERDER VERLOOP VAN DE BESTELLING</b><br /><br />"
xOutMsg1 = "<b><span style='color:red'>1.</span> CONTACTNAME I.V.M. DE BETONWERKEN</b><br />" & _
"<i>Indien Christiaens Yvan een betonplaat dient te voorzien, nemen we na ongeveer 3 weken volgend op de bestelling contact met je op en spreken een datum af om bij jou ter plaatse de technische mogelijkheden te overlopen.</i><br />" & _
"<br />"
xOutMsg2 = "<b><span style='color:red'>2.</span> OPSTART VAN DE PRODUCTIE</b><br />" & _
"<i>Christiaens Yvan zal je een e-mail versturen van zodra het tuinhuis in productie is opgenomen.</i><br />" & _
"<i>Deze productieperiode zal 2 tot 3 weken in beslag nemen. Het vastleggen van de plaatsingsdatum kan pas na het einde van de productieperiode.</i><br />" & _
"<br />"
xOutMsg3 = "<b><span style='color:red'>3.</span> AFSPRAAK MAKEN VOOR DE PLAATSING</b><br />" & _
"<i>Na de productieperiode neemt Christiaens Yvan telefonisch contact met je op om een datum voor plaatsing af te spreken.</i><br />" & _
"<b><span style='color:red'>Aandacht: </span></b><i>We zullen u vragen om eerst een foto van de gedane grondwerken door te mailen. Enkel op die manier kunnen onze plaatsers de situatie op voorhand inschatten. Gelieve deze foto (jpg) alvast klaar te hebben.</i><br />" & _
"<br />"
xOutMsg4 = "<b><span style='color:red'>4.</span> DE PLAATSING</b><br />" & _
"<i>Uw aanwezigheid tijdens de plaatsing is gewenst en zeker bij de opstart en bij het einde van de werken.</i><br />" & _
"<i>Bij aankomst zullen de plaatsers je de factuur overhandigen. Gelieve deze goed na te lezen.</i><br />" & _
"<br />"
xOutMsg5 = "<b><span style='color:red'>5.</span> DE CHECKLIST</b><br />" & _
"<i>Na de plaatsing ontvang je een checklist die je dan samen met de plaatsers overloopt. Doe dit stap voor stap en geef deze checklist - door de klant gehandtekend - terug mee met de plaatsers.</i><br />" & _
"<br />"
xOutMsg6 = "<b><span style='color:red'>6.</span> DE BETALING</b><br />" & _
"<i>Op de laatste dag van de plaatsing vragen wij een bewijs van betaling te tonen. Er kunnen geenszins bedragen worden achtergehouden en het verschuldigde bedrag dient 100% betaald te worden na het overlopen van de checklist en ten laatste bij vertrek van de plaatsers.</i><br />" & _
"<br />"
xOutMsg7 = "<b><span style='color:red'>7.</span> HET ONDERHOUDSBOEKJE</b><br />" & _
"<i>Na afloop ontvang je een bundel met documenten. Ook het onderhoudsboekje zal je daarin terugvinden.</i><br />" & _
"<i>Gelieve zeker alle aandachtspunten erin goed door te nemen, afhankelijk van type houtsoort en type tuinhuis.</i><br/><br />" & _
"<br />"
xOutMsgC = "Met vriendelijke groeten,<br /><br />" & _
"<b>Tuinhuizenfabrikant YC</b>"
With OutMail
Set .SendUsingAccount = OutAccount
.Display
[COLOR="#FF0000"].To = Range("D3").Value[/COLOR]
.CC = ""
.BCC = ""
[COLOR="#FF0000"].Subject = "Bevestiging bestelling"[/COLOR]
.HTMLBody = "<img src = 'X:\D-schijf\Verkoop\VBA Mailings\Signatures\Productie_001.jpg'>" & "<br/><br/>" & xOutMsgA & "<br/><br/><br/>" & xOutMsgB & "<br/>" & xOutMsg0 & "<br/>" & xOutMsg1 & "<br/>" & xOutMsg2 & "<br/>" & xOutMsg3 & "<br/>" & xOutMsg4 & "<br/>" & xOutMsg5 & "<br/>" & xOutMsg6 & "<br/>" & xOutMsg7 & "<br/>" & xOutMsgC & "<br/>" & "<img src = 'X:\D-schijf\Verkoop\VBA Mailings\Signatures\Productie_002.jpg'>"
.Send
End With
Set OutAccount = Nothing
Set OutMail = Nothing
Set OutApp = Nothing
MsgBox "De mail werd verstuurd."