Hallo,
Ik heb de onderstaande code (van de website van Ron de Bruin) in excel om een mail te versturen met daarin een automatische handtekeningverwerkt.
Deze handtekening is een afbeelding (bedrijfslogo) wat standaard onderaan mijn email moet komen te staan.
Bij het gebruik van deze code wordt de afbeelding netjes geplaatst op de juiste plek.
Bij het testen kwam ik erachter dat de afbeelding als bijlage is toegevoegd en niet netjes onderaan mijn verzonden email bericht stond.
Via Outlook geprobeerd een handtekening toe te wijzen aan een emailaccount, maar helaas doet Outlook dat niet zodra het emailberchtje vanuit een andere programma wordt verstuurd. In dit geval is dat Excel.
Door het gebruik van diverse emailadressen de de bijbehorende logo's wil ik dit graag geautomatiseerd hebben., en is dit nog mijn enige euvel...
Iemand een oplossing voor dit probleem?
Uiteraard heb ik zowel deze forum als op Google naar de oplossing gezocht, maar kon ik geen concrete antwoorden vinden.
M.vr.gr.
Safe.
Ik heb de onderstaande code (van de website van Ron de Bruin) in excel om een mail te versturen met daarin een automatische handtekeningverwerkt.
Deze handtekening is een afbeelding (bedrijfslogo) wat standaard onderaan mijn email moet komen te staan.
Bij het gebruik van deze code wordt de afbeelding netjes geplaatst op de juiste plek.
Bij het testen kwam ik erachter dat de afbeelding als bijlage is toegevoegd en niet netjes onderaan mijn verzonden email bericht stond.
Via Outlook geprobeerd een handtekening toe te wijzen aan een emailaccount, maar helaas doet Outlook dat niet zodra het emailberchtje vanuit een andere programma wordt verstuurd. In dit geval is dat Excel.
Door het gebruik van diverse emailadressen de de bijbehorende logo's wil ik dit graag geautomatiseerd hebben., en is dit nog mijn enige euvel...
Iemand een oplossing voor dit probleem?
Uiteraard heb ik zowel deze forum als op Google naar de oplossing gezocht, maar kon ik geen concrete antwoorden vinden.
M.vr.gr.
Safe.
Code:
Sub Mail_Outlook_With_Signature_Html()
' Don't forget to copy the function GetBoiler in the module.
' Working in Office 2000-2010
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim SigString As String
Dim Signature As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "<H3><B>Dear Customer</B></H3>" & _
"Please visit this website to download the new version.<br>" & _
"Let me know if you have problems.<br>" & _
"<A HREF=""http://www.rondebruin.nl/tips.htm"">Ron's Excel Page</A>" & _
"<br><br><B>Thank you</B>"
'Change only Mysig.htm to the name of your signature
SigString = Environ("appdata") & _
"\Microsoft\Signatures\Mysig.htm"
If Dir(SigString) <> "" Then
Signature = GetBoiler(SigString)
Else
Signature = ""
End If
On Error Resume Next
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.HTMLBody = strbody & "<br><br>" & Signature
'You can add files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Laatst bewerkt door een moderator:
