VBA - Hoe voeg je standaard een handtekening toe in Outlook

Status
Niet open voor verdere reacties.

Pascal1987

Gebruiker
Lid geworden
3 sep 2018
Berichten
25
Hallo iedereen,

Ik wil graag bij ieder bericht dat via outlook verzonden wordt automatisch mijn handtekening toevoegen.
Ik heb hem zo ingesteld dat wanneer ik een nieuwe email open hij automatisch in mijn nieuwe email verschijnt.

Het probleem is: Wanneer ik via Word, Excel of Adobe een mail verstuur dan wordt de handtekening weggelaten.

Wie kan een macro toevoegen in Outlook die ervoor zorgt dat de handtekening altijd wordt mee verzonden?
Dus ook wanneer ik vanuit Word, Excel of Adobe een mail verstuur.

Ik hoop dat iemand mij hiermee kan helpen.

Alvast bedankt iedereen!
 
Laatst bewerkt door een moderator:
Omdat de vraag net iets anders is.

Hierin vraag ik om een macro voor Outlook en bij de andere vraag ik om een macro voor Word.

Het is misschien makkelijker om de macro in Outlook toe te voegen.
Voor mij zelfs beter want zo maakt het niet uit via welk programma ik de mail verstuur.
 
Laatst bewerkt:
De link (van Ron de Bruin) welke Edmoor in je vorige topic heeft geplaatst lijkt mij de oplossing.
 
Zelf heb ik het kort geleden in Excel zo gedaan voor een klant, als onderdeel van een veel groter geheel:
Code:
Sub MailIt(ByVal mAdres As String, mSubject As String, ByVal mBijlage As String)
    Dim oApp As Object
    Dim oMail As Object
    Dim Attach As Object
    Dim Recipient As Object
    
    Set oApp = CreateObject("Outlook.Application")
    Set oMail = oApp.CreateItem(0)
    With oMail
        .Recipients.Add mAdres
        If Not .Recipients.ResolveAll Then
            For Each Recipient In .Recipients
                If Not .Recipient.Resolved Then
                    MsgBox .Recipient.Name & " could not be resolved.", vbCritical, "Unable to resolve"
                    Exit Sub
                End If
            Next Recipient
        End If
        .Subject = mSubject
        .Attachments.Add mBijlage
        
        .HTMLBody = RangetoHTML(Range(Range("Mailtekst").Address))
         Set Attach = .Attachments.Add(ThisWorkbook.Path & "\Plaatje.gif", 1, 0)
        .HTMLBody = .HTMLBody & "<img src='cid:Plaatje.gif' width='481' height='100'>" [COLOR="#008000"]'height minimaal 10 pixels groter dan het plaatje zelf[/COLOR]
        .HTMLBody = .HTMLBody & RangetoHTML(Range(Range("Handtekening").Address))
        
        Set .SendUsingAccount = oAcc
        .Display [COLOR="#008000"]'Eerst tonen, anders gaat het plaatje mis (Outlook bug)[/COLOR]
        .Close olSave
        [COLOR="#008000"]'.Send[/COLOR]
    End With
    
    Set Attach = Nothing
    Set oMail = Nothing
    Set oApp = Nothing
End Sub

De RangeToHTML functie kan je vinden op de site van Ron de Bruin waar ik al naar linkte.
 
Laatst bewerkt:
Het is mij nog niet gelukt. Waar moet ik de macro toevoegen. In het adressenbestand van Excel?
Ik ben helaas niet net zo slim als jullie. Zou iemand mijn Word of Excel document kunnen aanpassen?
 
Laatst bewerkt:
Word en Excel document

Hier zijn de documenten.
 

Bijlagen

  • Document.docx
    13,6 KB · Weergaven: 47
  • Verzendlijst.xlsx
    8,8 KB · Weergaven: 57
Het Word document wil ik als pdf bijlage mailen naar de verzendlijst met de handtekening die ik ingesteld heb in Outlook.
 
Laatst bewerkt:
Plaats ook een voorbeeld van je handtekening, met fictieve gegevens uiteraard.
Het gaat me om de layout, incl. lettertype, grootte en evt. kleuren.
 
Laatst bewerkt:
Voorbeeld van handtekening Outlook

Ik heb dus eigenlijk een nieuwsbrief in outlook gemaakt die ik wil versturen met een gepersonaliseerde pdf bijlage.
 

Bijlagen

  • nieuwbrief.rar
    5,6 KB · Weergaven: 33
Ik zal er vanavond naar kijken.
Maar dat hoeft anderen niet tegen te houden uiteraard :)
 
Super bedankt!

Dit zijn natuurlijk voorbeelden ik moet de documenten wel kunnen aanpassen natuurlijk :D
Dit is dus niet de nieuwsbrief die ik wil versturen maar heeft ongeveer wel de zelfde lay-out.

De .htm moet ik dus kunnen aanpassen.
 
Laatst bewerkt:
Was nieuw voor mij met het gebruik van dat .htm bestand, maar het is toch gelukt.
Wat moet er op de plek van {{FirstName}} en {{Company}} komen?
 
Laatst bewerkt:
Niet nodig als ik maar in het Word documen kan aangeven welk .htm bestand hij moet toevoegen uit de map:
C:\Users\GEBRUIKERSNAAM\AppData\Roaming\Microsoft\Signatures

Of dat ik ergens de .htm tekst kan kopiëren en plakken mag ook.

{{FirstName}} en {{Company}} van de email kun je weglaten die gebruik ik niet.

Ongelofelijk dat het je zo snel is gelukt. Ik zit hier al een hele week mee te klooien.

Slapeloze nachten heb ik ervan :p
 
Laatst bewerkt:
Wat ik gedaan heb is dat .htm bestand als briefpapier voor email gebruikt.
Deze kan volledig gepersonaliseerd worden middels die {{FirstName}} en {{Company}} en evt. andere variabelen.
Op die manier hoef je alleen maar het juiste .htm bestand te plaatsen in de map waar ook het Excel document staat en kan je evt. de PDF achterwege laten.

De mail ziet er dan zo uit:
Pascal.JPG
 
Laatst bewerkt:
Oke de mail ziet er goed uit maar wordt het Word document als pdf bijlage toegevoegd als ik vanuit Word de mail verstuur wordt dit dan mee verzonden..
of vanuit excel of vanuit Adobe?

Het gaat erom dat het Word document als pdf bijlage gepersonaliseerd wordt verzonden en met dus het briefpapier en niet met een blanco mail

Handtekening of briefpapier moet mee verzonden worden als ik vanuit Word het voorbeeld documentje verstuur met de optie: verzendlijsten
 
Laatst bewerkt:
Ja, dat is geen enkel probleem.
 
Oke. Zou je mij dan het Word bestandje kunnen uploaden zodat ik het kan testen?
 
Dat Word bestand heb je zelf, daar heb ik niks mee gedaan.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan