Dag allen,
Ik ben al een tijdje bezig met Visual Basic vanuit Access 2007, en wil wanneer ik op "Send email" klik in Access, via Outlook een mail naar de desbetreffende klant sturen. Ik heb dit al werkend, en Outlook opent netjes met het emailadres van de klant bij "ontvanger". Nu heb ik een signature gemaakt in Outlook met gekleurde tekst en een afbeelding. Dit heb ik alleen nog niet correct werkend.
Zoals je hieronder in de code kunt zien, heb ik een Email_body. Wanneer ik dit toelaat, dan laat de code het volgende zien:"Geachte" & Space(1) & Me.txtName & ",".
De signature verschijnt 0,5 seconde in de email en verdwijnt dan. Hoe kan ik ervoor zorgen dat dit beide in de mail blijft staan?
Het is nu het een of het ander, maar ik weet niet of dit wel te realiseren is dat het beide kan?
Hopelijk kan iemand mij hier helpen.
Mijn dank is groot.
Met vriendelijke groet,
Ik ben al een tijdje bezig met Visual Basic vanuit Access 2007, en wil wanneer ik op "Send email" klik in Access, via Outlook een mail naar de desbetreffende klant sturen. Ik heb dit al werkend, en Outlook opent netjes met het emailadres van de klant bij "ontvanger". Nu heb ik een signature gemaakt in Outlook met gekleurde tekst en een afbeelding. Dit heb ik alleen nog niet correct werkend.
Zoals je hieronder in de code kunt zien, heb ik een Email_body. Wanneer ik dit toelaat, dan laat de code het volgende zien:"Geachte" & Space(1) & Me.txtName & ",".
De signature verschijnt 0,5 seconde in de email en verdwijnt dan. Hoe kan ik ervoor zorgen dat dit beide in de mail blijft staan?
Het is nu het een of het ander, maar ik weet niet of dit wel te realiseren is dat het beide kan?
Hopelijk kan iemand mij hier helpen.
Mijn dank is groot.
Met vriendelijke groet,
Code:
Sub cboEmailadres_Click()
On Error GoTo Err_cmdVerstuur_email
' Opent Outlook applicatie:
Dim olApp As Outlook.Application
Dim olNs As NameSpace
Dim Fldr As MAPIFolder
Dim olMail As Variant
Dim myItem As Object
Dim msg As Object
Dim Email_Body As Variant
' Opent uw Outlook:
Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
' Creeert mail:
Set myItem = olApp.CreateItem(olMailItem)
' Body van de email, dus de tekst etc.
Email_Body = "Geachte" & Space(1) & Me.txtName & ","
myItem.Display
' Emailadres van klant automatisch bij ontvanger in de mail
myItem.To = Me.e_mail
' Het onderwerp voor de mail
myItem.Subject = Time & " " & Date
' Email body -> wanneer dit onderstaande toegelaten wordt, verdwijnt de signature
' myItem.HTMLBody = Email_Body
Exit_cmdVerstuur_email_Click:
Exit Sub
' Meldingen worden nu niet weergegeven, uitzoeken hoe dat komt
Err_cmdVerstuur_email:
' Dit bericht wordt weergegeven als de mail niet wordt verstuurd:
If Err.Number = 2501 Then
MsgBox "Mail is niet verstuurd!"
Else
' Dit bericht wordt weergegeven als er geen e-mailadres is ingevuld:
If Err.Number = 94 Then
MsgBox "Geen e-mailadres ingevuld!"
Else
MsgBox Error
Resume Exit_cmdVerstuur_email_Click
End If
End If
myItem.Send
End Sub