Ik wil een extra regel toevoegen aan mij Email de regel Extra..

Ik wil[B][I] extra[/I][/B] alleen in offerte erbij hebben maar krijg het niet voor elkaar.

Sub MailMetPDFBijlage(BestandsNaam As String, FolderLocatie As String, Sheetnaam As String)
Dim Aanhef As String, Inhoud As String
Dim DefaultFolder As String
DefaultFolder = "C:\Dropbox\documenten\afbeeldingen\"

Aanhef = "Beste " & Sheets("Invoersheet").Range("G17").Value & ", "
Inhoud = "<br>" & "<br>" & "Hierbij de " & Sheetnaam & "."
Extra = "<br>" & "<br>" & "Graag verneem ik uw reactie." & "."

If InStr(Sheets("InvoerSheet").Range("G21").Value, "@") > 0 Then 'er moet een @ staan
    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem

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

    With OutMail
        .Display
        .To = Sheets("InvoerSheet").Range("G21").Value
        .CC = Sheets("InvoerSheet").Range("I21").Value
        .Subject = Sheets("InvoerSheet").Range("P14").Value
        .HTMLBody = "<font size=""2"" face=""Times New Roman"" color=""#800000"">" & Aanhef & Inhoud & .HTMLBody
        .Attachments.Add FolderLocatie & "\" & BestandsNaam & ".PDF" 'dit is de locatie van het bestand dat toegevoegd word

If Sheetnaam <> "Offerte" Then
   
   With OutMail
        .Display
        .To = Sheets("InvoerSheet").Range("G21").Value
        .CC = Sheets("InvoerSheet").Range("I21").Value
        .Subject = Sheets("InvoerSheet").Range("P14").Value
        .HTMLBody = "<font size=""2"" face=""Times New Roman"" color=""#800000"">" & Aanhef & Inhoud & Extra & .HTMLBody
        .Attachments.Add FolderLocatie & "\" & BestandsNaam & ".PDF" 'dit is de locatie van het bestand dat toegevoegd word
End With

    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End If

End Sub

[COLOR="#FF0000"]Option Compare Text[/COLOR]                                             'maakt dat tekstvergelijkingen in deze module hoofdletterongevoelig zijn

Sub MailMetPDFBijlage(BestandsNaam As String, FolderLocatie As String, Sheetnaam As String)
     Dim Aanhef As String, Inhoud As String
     Dim DefaultFolder As String
     DefaultFolder = "C:\Dropbox\documenten\afbeeldingen\"

     Aanhef = "Beste " & Sheets("Invoersheet").Range("G17").Value & ", "
     Inhoud = "<br>" & "<br>" & "Hierbij de " & Sheetnaam & "."
     Extra = "<br>" & "<br>" & "Graag verneem ik uw reactie." & "."

     If InStr(Sheets("InvoerSheet").Range("G21").Value, "@") > 0 Then     'er moet een @ staan
          Dim OutApp As Outlook.Application
          Dim OutMail As Outlook.MailItem

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

          With OutMail
               .Display
               .To = Sheets("InvoerSheet").Range("G21").Value
               .CC = Sheets("InvoerSheet").Range("I21").Value
               .Subject = Sheets("InvoerSheet").Range("P14").Value
               .HTMLBody = "<font size=""2"" face=""Times New Roman"" color=""#800000"">" & Aanhef & Inhoud [COLOR="#FF0000"][SIZE=3]& IIf(Sheetnaam = "Offerte", Extra, "") [/SIZE][/COLOR]& .HTMLBody
               .Attachments.Add FolderLocatie & "\" & BestandsNaam & ".PDF"     'dit is de locatie van het bestand dat toegevoegd word
          End With

          Set OutMail = Nothing
          Set OutApp = Nothing
     End If

End Sub