Tekst in outmail via vba excel vetgedrukt

Status
Niet open voor verdere reacties.
T

TeuntjuhJef01

Gebruiker
Lid geworden
3 jun 2009
Berichten
14
Goede morgen,

Ik heb onderstaande code in vba staan. Hiermee wordt de e-mail opgesteld en verzonden. Dit werkt. Maar de variabele in de e-mail wil ik vetgedrukt hebben. Dit krijg ik niet voor mekaar. Wie o wie kan me hierbij helpen. Alvast bedankt.

PS. de code zal vast omslachtig zijn maar zo werkt hij en is hij duidelijk voor mij.

Code: 
Dim Sourcewb As Workbook
    Dim Destwb As Workbook
    Dim OutApp As Object
    Dim OutMail As Object

lh = TextBox1.Value
naam = TextBox2.Value
telefoonnummerwijz = TextBox3.Value
telefoonnummertoev = TextBox4.Value
emailadres = TextBox7.Value
corresadres = TextBox8.Value
zakenadres = TextBox9.Value
rechtsvorm = TextBox10.Value
eindebedrijf = TextBox11.Value
failliet = TextBox12.Value
gbacheck = TextBox13.Value
rekeningnummer = TextBox14.Value
tenaamstelling = TextBox15.Value
premieverzoek = ComboBox1.Value
premiecontrole = TextBox16.Value
overige = TextBox17.Value
redenwijz = ListBox1.Value

If lh = "" Then
MsgBox "Loonheffingennummer moet ingevuld zijn."
Exit Sub
Else
End If

If premieverzoek <> "" Then
verstuuremail = "premievaststelling@phenc.nl"
Else
verstuuremail = "B&L@phenc.nl"
End If

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)


    With Destwb
        
        With OutMail
            .To = verstuuremail
            .CC = ""
            .BCC = ""
            .Subject = "Aanvraag wijziging"
            .Body = "Beste collega's," _
            & vbCrLf & "" _
            & vbCrLf & "Voor onderstaande LHNR zou ik graag een wijziging/aanpassing willen doorvoeren in de gegevens." _
            & vbCrLf & "Graag ontvang ik een terugkoppeling wanneer dit gereed is." _
            & vbCrLf & "" _
            & vbCrLf & "Met vriendelijke groet," _
            & vbCrLf & "Afdeling Debiteurenbeheer" _
            & vbCrLf & "" _
            & vbCrLf & "LH: " & lh _
            & vbCrLf & "Naam: " & naam _
            & vbCrLf & "Telefoonnummer wijzigen: " & telefoonnummerwijz _
            & vbCrLf & "Telefoonnummer toevoegen: " & telefoonnummertoev _
            & vbCrLf & "E-mailadres toevoegen : " & emailadres _
            & vbCrLf & "Correspondentie adres aanpassen: " & corresadres _
            & vbCrLf & "Zakenadres aanpassen: " & zakenadres _
            & vbCrLf & "Rechtsvormwijziging: " & rechtsvorm _
            & vbCrLf & "Einde bedrijf: " & eindebedrijf _
            & vbCrLf & "Failliet: " & failliet _
            & vbCrLf & "GBA check: " & gbacheck _
            & vbCrLf & "Rekeningnummer: " & rekeningnummer _
            & vbCrLf & "Tenaamstelling: " & tenaamstelling _
            & vbCrLf & "Premie controle: " & premieverzoek & " " & premiecontrole _
            & vbCrLf & "Overige wijzigingen: " _
            & vbCrLf & overige _
            & vbCrLf & "Reden van wijziging/aanvraag: " & redenwijz
'Hier kan je een bestand bijvoegen als nodig
            '.Attachments.Add ("C:\test.txt")
            .send   'of gebruik .Display
            
            
        End With
        On Error GoTo 0
    End With


    Set OutMail = Nothing
    Set OutApp = Nothing

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
 
Je gebruikt code die alleen platte tekst herkent; dus ook geen opmaak zoals vet en cursief. Met .HTMLBody kun je wel opmaak meegeven. Met de standaard HTML tags, zoals

Code: 
"Telefoonnummer wijzigen: [ B ]" & telefoonnummerwijz & "[ /B ]"

(wel zonder spaties; die staan hier om te voorkomen dat de code ook wordt uitgevoerd i.p.v. de tekst)
 
OctaFish,

Dank je voor je reactie.
Ik heb even zitten vogelen maar ben idd tot het volgende gekomen:

Code: 
strbody = "<html>" & _
"Beste collega 's, <br><br>" & _
"Voor onderstaande LHNR zou ik graag een wijziging/aanpassing willen doorvoeren in de gegevens. <br><br>" & _
"Graag ontvang ik een terugkoppeling wanneer dit gereed is. <br><br>" & _
"Met vriendelijke groet, <br>" & _
"Afdeling Debiteurenbeheer <br><br><br>" & _
"LH: <B>" & LH & "</B> <br>" & _
"Naam: <B>" & Naam & "</B><br>" & _
"Telefoonnummer wijzigen: <B>" & telefoonnummerwijz & "</B><br>" & _
"Telefoonnummer toevoegen: <B>" & telefoonnummertoev & "</B><br>" & _
"E-mailadres toevoegen : <B>" & emailadres & "</B><br>" & _
"Correspondentie adres aanpassen: <B>" & corresadres & "</B><br>" & _
"Zakenadres aanpassen: <B>" & zakenadres & "</B><br>" & _
"Rechtsvormwijziging: <B>" & rechtsvorm & "</B><br>" & _
"Einde bedrijf: <B>" & eindebedrijf & "</B><br>" & _
"Failliet: <B>" & failliet & "</B><br>" & _
"GBA check: <B>" & gbacheck & "</B><br>" & _
"Rekeningnummer: <B>" & rekeningnummer & "</B><br>" & _
"Tenaamstelling: <B>" & tenaamstelling & "</B><br>" & _
"Premie controle: <B>" & premieverzoek & " " & premiecontrole & "</B><br>" & _
"Overige wijzigingen: <B>" & overige & "</B><br>" & _
"Reden van wijziging/aanvraag: <B>" & redenwijz & "</B><br>" & _
"</html>"

En zo doet ie het goed.

Dank!
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan