• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

send mail met een logo bovenaan

Status
Niet open voor verdere reacties.

paulva

Gebruiker
Lid geworden
29 aug 2009
Berichten
294
Via vba stuur ik automatisch een mailtje met bovenaan het logo van onze dienst.
Nu blijkt dat mensen buiten onze dienst geen toegang hebben tot de map waar het logo staat en dus ook dat logo niet kunnen zien.

Code:
bericht = "<html><head></head><body><img src=""" & ActiveWorkbook.Path & "/beeldje.png" &
 """    height=""300"" width=""900""    alt=""Logo"" /> <br>" & TextBox2.Text & 
"<br><br>" & TextBox3.Text & "</body></html>"
With OutMail
        .To = TextBox1.Text
        .Subject = "subject"
        .htmlbody = bericht
        .ReadReceiptRequested = False
        .Send   
End With
Is er een manier om dat logo mee te sturen?
 
Best paulva,

ik kan je niet direct helpen, maar lang geleden heb ik ook eens een eigen E-mail layout gemaakt. Intern werkte het geheel wel, extern naar een andere gebruiker dan Outlook zagen zij niets omdat het andere bedrijf met een ander E-mail systeem werkten.
 
Hallo Paulva,

Je hebt vast wel ergens op internet (de bedrijfssite) het plaatje van het logo staan.
Als je nu in de coding de relatieve verwijzing naar het logo vervangt door een absolute (dus met het volledige URL), dan zou het zeker voor de externen goed moeten gaan mits zij op het moment van lezing toegang hebben tot internet.
 
Laatst bewerkt:
Toevallig en na heel wat prutsen ben ik tot het volgende resultaat gekomen.
Code:
bericht = "<html><head></head><body<img src=""" & "./beeldje.png" &
 """    height=""300"" width=""900""    alt=""Logo"" /> <br>" & TextBox2.Text & 
"<br><br>" & TextBox3.Text & "</body></html>"
With OutMail
        .To = TextBox1.Text
        .Subject = "subject"
        .Attachments.Add ActiveWorkbook.Path & "/beeldje.png"
        .htmlbody = bericht
        .ReadReceiptRequested = False
        .Send   
End With
De code '.Attachments.Add' voegt het plaatje toe en door de code './beeldje.png' kan html blijkbaar het meegestuurde plaatje vinden.
@Thoralf, spijtig genoeg werkt dit niet. Op onze eigen site staat het plaatje niet en ik ben niet zeker dat elke collega de plaats waar het wel op internet staat, kan bereiken.
Ben Spijk en Thoralf, allebei bedankt!
 
Deze oplossing werkt fijn met Outlook. Thunderbird toont wel de mail maar op de voorziene plaats staat een vak van 300X900 en het alternatieve bericht 'Logo' (zie html code).
Helemaal onderaan de mail wordt het plaatje wel mooi weergegeven.
Is er iemand die weet op welke manier html in Thunderbird dit bericht juist zou kunnen weergeven?
Alvast bedankt.

Beste groeten,
Paul.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan