Bij openen mail wijzigd teksttype

[josenlieke]

Beste forumleden,

Als ik op een formulier op een knop druk dan wordt outlook automatisch geopend met de informatie op de gewenste plaatsen.
Ook wordt de gewenste account ingesteld met een bijbhorende handtekening.
Waar ik tegen aanloop is het volgende;
Als ik op knop 1 druk (zonder verwijzing naar een handtekening) dan wordt alles goed ingevuld, met de juiste letertype en letergrootte.
Bij knop 2 (met verwijzing naar een hantekening) wordt de tekst van de aanhef en daar waar je het bericht invuld ineens veranderd in een ander lettertype en lettergrootte.
Weet iemand hier een oplossing voor, ik heb een bestandje bijgevoegd.
Ik werk met access en outlook 2007.
Alvast bedankt voor jullie medewerking.

Groeten, Jos Hoogervorst

 

[OctaFish]

In het tweede voorbeeld gebruik je HTML mail voor de body text, en in het eerste voorbeeld gewone bodytext. Dan is het logisch dat de opmaak anders is. Je bent appels met peren aan het vergelijken.

 

[josenlieke]

OctaFish,

Bedankt voor je reactie.
Alleen bij de HTML versie wordt mijn handtekening er goed ingeplaatst, bij de txt-versie wordt de opmaak van mijn handtekening niet goed overgenomen.
Is er wel een mogelijkheid om de eerste regels ook in letertype arial met lettergrootte van 10 te laten plaatsen?
Alvast bedankt voor de moeite.

Groeten, Jos Hoogervorst

 

[OctaFish]

Je kunt in de HTML code uiteraard font kenmerken meegeven; dat zou hij goed moeten oppakken.

 

[josenlieke]

Is er iemand die mijn hiermee op weg kan helpen??
Alvast bedankt voor de moeite.

Groeten, Jos Hoogervorst

 

[perpon]

Je kan ook een memoveld met tekstopmaak gebruiken.

Gr Jan

 

[josenlieke]

Jan,

Bedankt voor je reactie.
Ik ben zelf niet erg bedreven hierin, zou je een voorbeeld kunnen geven.
Alvast bedankt.

gr. Jos

 

[perpon]

Knop1 voegt het memo veld toe met opmaak.

Gr Jan

Bekijk bijlage Mailen20.zip

 

[josenlieke]

Jan,

Bedankt voor je voorbeeldje, hier kan ik wel wat mee denk.
Ik ga nu proberen om de handtekening in een bovenliggende tabel (in een memoveld met opmaak) te zetten zodat ik deze per project 1x hoef aan te maken.
Ik moet alleen nog uitvogelen hoe ik dat het beste kan doen.
Als ik er uit ben dan zal ik me weer melden.

gr. Jos

 

[josenlieke]

Ik ben er al een tijdje mee bezig maar kom er nog niet uit.
Het lukt me nu wel om opgemaakte tekst uit een memoveld te plaatsen op de plaats van de handtekening.
Maar dat betekend dat ik in elke regel de handtekening moet toevoegen onder de aanhef.
Is dit eenvoudiger op te lossen door eenmaal een handtekening aan te maken in een aparte tabel zodat deze, via een verwijzing of iets dergelijks, erbij wordt geplaatst.
Alvast bedankt voor de moeite.

Groeten Jos Hoogervorst

 

[perpon]

Er zijn verschillende oplossingen:
1 Als de handtekening altijd statisch is kan je hem als string opnemen in je vba code!
2 Maak een extra ( unbound) veld 'handtekening' welke je bij het laden van het formulier vult met gegevens vanuit een of andere configuratietabel met allerlei statische informatie, waaronder de handtekening of vul het veld met een tijdelijke handtekening

Bij oplossing 1

dim sHandtekening as string 
sHandtekening= "met vriendelijke groet" & vbcrlf & " Jos hoogervorst"
.HTMLBody = Me.memo & vbCrLf & sHandtekening

Bij oplossing 2

Private Sub Form_Load()
On Error GoTo Fout
Dim rs  As New ADODB.Recordset
rs.Open "tblconfig", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Nz(rs.RecordCount) > 0 Then
 Me.handtekening = rs.Fields("handtekening")
Else
 Me.handtekening = "Groet, " & vbCrLf & "Jos Hoogervorst "
End If
rs.Close
Uit:
 Exit Sub
Fout:
 MsgBox Err.Description
End Sub


Private Sub Knop1_Click()
'Is only working in Office 2007-2010
'You must add a reference to the Microsoft Outlook Library
On Error GoTo Fout
    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
    Dim strbody As String
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(olMailItem)
    On Error Resume Next
    With OutMail
        .To = Me.Mailadressen
        .CC = ""
        .BCC = ""
        'Vul bij projectnaam het gewenste project in
        .Subject = "Projectnaam, bouwnummer " & Me.Bouwnummer
        .HTMLBody = Me.memo & vbCrLf & Me.handtekening
        .SendUsingAccount = OutApp.Session.Accounts.Item(2)
        .Display
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
Uit:
 Exit Sub
Fout:
 MsgBox Err.Description
End Sub

Vergeet niet voor de statement

Dim rs  As New ADODB.Recordset

bij de vba editor bij extra een verwijzing naar 'Microsoft Active Data Objects 2.8 library' toe te voegen.
Zoals je ziet heb ik er nu foutafhandeling aan toegevoegd, is wel handig om dat altijd te doen

gr. Jan

 

[josenlieke]

Ik heb in outlook het standaard lettertype aangepast.
Alles doet nu wat ik wil.
Allemaal nog van harte bedankt voor jullie medewerking.

Groeten, Jos Hoogervorst