betaallink naar PSP

Status
Niet open voor verdere reacties.
Ik had wat tijd en heb wat voor je gedaan.
Deze code vervangt je huidige code.
Wel even het CC adres en de persoonlijke gegevens aanpassen:

Code: 
Sub maakEmailFactuur()
    Dim objOutlook As Object
    Dim objMail As Object
 
    Set objOutlook = CreateObject("Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)
 
    HL = "<a href=""https://www.Linkpay.n1/vinetix/"""
    HL = Left(HL, Len(HL) - 1) & 100 * [D41] & "/" & [B13] & """" & ">Betaal link</a>"
    sPic = "D:\DSR Cleaning\Afbeeldingen\logo-10.jpg"
 
    With objMail
        .To = [B11]
        .CC = "CCadres@hotmail.nl"
        .Subject = "Factuur"
        .Attachments.Add sPic, 1, 0
  
        .HTMLBody = "<HTML>" & [A17] & "<p><p>" & _
        "Bijgaand doen wij u de factuur toekomen voor de door ons verrichte werkzaamheden. <p>" & _
        "Het met u overeengekomen bedrag is " & Format([D41], "Currency") & "." & "<p><p>" & _
        "Maak a.u.b. het bedrag binnen een termijn van 10 dagen over op rekeningnummer NL14ABNAXXXXXXXX ten name van DSR Cleaning. <p><p>" & _
        "Wij verzoeken u vriendelijk in uw overschrijving uitsluitend het factuurnummer te noemen. In uw geval " & [B13] & "." & "<p>" & _
        "U kunt ook direct betalen. Wel zo gemakkelijk." & "<p><p>" & _
        HL & "<p>" & _
        "Heeft u gekozen voor een vaste reinigingsfrequentie? Noteer a.u.b. de volgende reinigingsdatum: " & [D24] & "." & "<p>" & _
        "Zorg er voor dat wij de geplande werkzaamheden uit kunnen voeren en voorkom daarmee teleurstellingen.<p><p>" & _
        "Met vriendelijke groet, <p><p>" & _
        "<img src=""cid:logo-10.jpg""height=160 width=225>" & _
        "<p><p>RL" & _
        "<br>KvK: Nummer " & _
        "<br>Website: DSR " & _
        "<br>Mobiel: 06-********"
  
        '.Attachments.Add pdfDocument
        If MsgBox("De factuur per e-mail verzenden?", vbQuestion + vbYesNo) = vbYes Then
            .Display 'Of .Send
            'MsgBox "De e-mail is met succes opgeslagen en verzonden!", vbInformation
        End If
    End With
 
    Set objMail = Nothing
    Set objOutlook = Nothing
End Sub
 
Laatst bewerkt door een moderator:
Beste edmoor,
Dank voor je hulp. Ik kijk er morgen even naar en kom er op terug.
 
Beste edmoor,
Ik krijg nog een deel met rode tekst te zien. Wil je er nog even naar kijken?
Na deze regel wordt de tekst roodkleurig.

.Attachments.Add sPIC, 1, 0

Sub maakEmailFactuur()

Dim objOutlook As Object
Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

HL = "<a href=""https://www.linkpay.nl/vinetix/"""
HL = Left(HL, Len(HL) - 1) & 100 * [D41] & "/" & [B13] & """" & ">betaal link</a>"
sPIC = "'D:\DSR Cleaning\Afbeeldingen\logo-10.jpg'"

With objMail
.To = [B11]
'.CC = "mailadres"
.Subject = "Factuur"
.Attachments.Add sPIC, 1, 0
.HTMLBody = "<HTML>" & [A17] & "<p><p>" & _
"Bijgaand doen wij u de factuur toekomen voor de door ons verrichte werkzaamheden. <p>" & _
"Het met u overeengekomen bedrag is " & Format[D41], "Currency") & "." & "<p><p>" & _
"Maak a.u.b. het bedrag binnen een termijn van 10 dagen over op rekeningnummer NL14ABNA0813138698 ten name van DSR Cleaning. <p><p>" & _
"Wij verzoeken u vriendelijk in uw overschrijving uitsluitend het factuurnummer te noemen. In uw geval " & [B13] & "." & "<p>" & _
"U kunt ook direct betalen. Wel zo gemakkelijk." & "<p><p>"& _
HL & "<p>" & _
"Heeft u gekozen voor een vaste reinigingsfrequentie? Noteer a.u.b. de volgende reinigingsdatum: " & [D24] & "." & "<p>" & _
"Zorg er voor dat wij de geplande werkzaamheden uit kunnen voeren en voorkom daarmee teleurstellingen.<p><p>" & _
"Met vriendelijke groet, <p><p>" & _
"<img src= ""cid:logo-10.jpg"" height=160 width=225>"& _
"<p><p>René Loorbach" & _
"<br>KvK: 00000000 " & _
"<br>Website: bdedrijfsnaam.nl " & _
"<br>Mobiel: 06-00000000"
.Attachments.Add pdfDocument
If MsgBox("De factuur per e-mail verzenden?", vbQuestion + vbYesNo) = vbYes Then
.Send
MsgBox "De e-mail is met succes opgeslagen en verzonden!", vbInformation
End If
End With

Set objMail = Nothing
Set objOutlook = Nothing

End Sub
 
Die regel boven Sub hoort er niet.
Er mist een spatie voor het & teken.
Zo moet het zijn:
Code: 
"U kunt ook direct betalen. Wel zo gemakkelijk." & "<p><p>" & _
en
"<img src= ""cid:logo-10.jpg"" height=160 width=225>" & _
 
Laatst bewerkt:
Beste edmoor,

Ondanks de correctie gaat het nog niet goed.
 

Bijlagen

  • Schermafbeelding 2023-11-29 164842.png
    Schermafbeelding 2023-11-29 164842.png
    98,6 KB · Weergaven: 2
Hier mist een ronde haak openen voor [D41]:
Code: 
Format[D41], "Currency")
 
Beste edmoor,
Hartelijke dank voor je ondersteuning. Ik ben er erg blij mee. Mag ik je een presentje sturen?
 
Hallo hdrenth,

Graag gedaan.
En een presentje is niet nodig.
Ik doe dit voor m'n plezier en vind het fijn als iemand blij is met mijn hulp.

Wel bedankt voor het aanbod :)
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan