Opgelost Als PDF opslaan en per mail verzenden

[Johan51]

Hallo wie kan mij helpen.
Ik maak in excel een opdrachtbon en die sla ik op als PDF, geen probleem.
Maar nu wil ik verder dat het PDF ook per mail verzonden wordt naar het mail adres uit kolom 3 van het tabel op tabblad Team.
Is dat mogelijk??

 

[edmoor]

Welkom bij Helpmij
Dat kan bijvoorbeeld zo:

 

[Johan51]

Welkom bij Helpmij
Dat kan bijvoorbeeld zo:

Goede morgen edmoor,
Hartelijk dank voor de snelle reactie, en het verwelkomen, ik ben inderdaad nieuw op het forum.

En ook heel hartelijk dank voor de oplossing, ik heb de code in de originele opdrachtbon gezet en het werkt perfect, ben er super blij mee, scheelt een hoop werk.

Nog een paar vragen, de code opent outlook en dan wordt de mail verstuurd met mijn prive mail adres, omdat dat het standaard mailadres is bij mij in outlook, is het mogelijk omdat direct te doen vanuit de zakelijke mail, ik heb dus meerdere mailadressen in outlook staan.
Zo gaat het ook wel maar dan moet ik wel opletten dat ik het versturen "van" even overzet en dat wordt geheid vergeten, dan is er geen man over boord maar het is slordig.

En een tweede vraag, ik ben gewend om in de body een "handtekening" te zetten, is dat ook mogelijk omdat er standaard in te hebben. Ik heb geprobeerd die "handtekening" in de code te zetten, daar waar nu staat "Bij deze het bestand" maar dat lukt niet, waarschijnlijk omdat er een afbeelding in staat.

 

[edmoor]

Probeer deze maar eens.
Wel even in de code de tekst MAIL ADRES wijzigen in het mail adres van het te gebruiken account.

 

[Johan51]

Probeer deze maar eens.
Wel even in de code de tekst MAIL ADRES wijzigen in het mail adres van het te gebruiken account.

Super, dat is snel.
Ook dat werkt goed gaat keurig naar "van" bedrijfsmail
Alleen de " handtekening " verschijnt niet in de mail, is dat aan te passen?

 

[edmoor]

Dat werkt hier prima.
Heb je wel de handtekening bij het account in Outlook ingevoerd?

 

[Johan51]

Dat werkt hier prima.
Heb je wel de handtekening bij het account in Outlook ingevoerd?

Is het probleem dan, dat ik meerdere Hantekeningen heb die ik bij iedere mail kan toevoegen?

 

[edmoor]

Ieder account heeft z'n eigen handtekening in Outlook.
Die voeg je niet zelf toe bij een nieuwe mail, dat doet Outlook.
Dat is de handtekening die wordt gebruikt in mijn voorbeeld.

 

[Johan51]

Ieder account heeft z'n eigen handtekening in Outlook.
Die voeg je niet zelf toe bij een nieuwe mail, dat doet Outlook.
Dat is de handtekening die wordt gebruikt in mijn voorbeeld.
Bekijk bijlage 383150

Oei, bij mijn werkt het anders.

Ik ga naar outlook, bedrijfsmail > nieuwe e-mail > de aangemaakte PDF invoegen > kies in de menubalk invoegen > handtekening > klik op de bijbehorende handtekening, die komt op het blad > en dan verzenden.
Ik gebruik office 2019

Ik wordt toch niet vervelend, anders ga ik verder met het bereikte resultaat.

 

[edmoor]

Zeker niet vervelend.
Voeg de handtekeningen daar toe zoals ik liet zien.
Een handtekening wordt dan automatisch ingevoegd bj het maken of beantwoorden van een email.
Ook door mijn code.
Dat scheelt je zelf ook weer een paar stappen.

 

[Johan51]

Zeker niet vervelend.
Voeg de handtekeningen daar toe zoals ik liet zien.
Een handtekening wordt dan automatisch ingevoegd bj het maken of beantwoorden van een email.
Ook door mijn code.
Dat scheelt je zelf ook weer een paar stappen.

Je bent geweldig.
Was mijn fout, ben vergeten, bij nieuwe berichten aan te vinken. Ook weer opgelost

Nog een ding, bij onderwerp in de mail zou ik graag zien "Opdracht" + opdrachtnaam (F3 + opdrachtnummer (F6)
Heb bij Subject het een en ander geprobeerd maar het enige resultaat is een rode regel en/of foutmelding, dus ook daar schiet mijn kennis tekort.

 

[edmoor]

Dat kan je dan zo doen.
Uitgebreider dan nodig, maar maakt het wel duidelijk:

.Subject = "Opdracht " & Sheets("Opdracht").Range("F3") & " " & Sheets("Opdracht").Range("F6")

 

[Johan51]

Dat kan je dan zo doen.
Uitgebreider dan nodig, maar maakt het wel duidelijk:

.Subject = "Opdracht " & Sheets("Opdracht").Range("F3") & " " & Sheets("Opdracht").Range("F6")

Ongelofelijk, je bent geweldig.
Alles werkt nu naar mijn zin, en scheelt een hoop werk.

Hoe kan ik je bedanken, wat ben ik je verschuldigd.

 

[edmoor]

Helemaal niets, ik doe dit voor m'n plezier, zoals de meeste helpers hier.
Eventuele donaties kunnen aan Helpmij worden gedaan

 

[Johan51]

Helemaal niets, ik doe dit voor m'n plezier, zoals de meeste helpers hier.
Eventuele donaties kunnen aan Helpmij worden gedaan

Dat ga ik dan zeker doen.
Ik wil dit ook gaan doen met facturen, maar dat zal met dit voorbeeld wel lukken, ander wil ik daarmee weer bij je aan kloppen.
Nogmaals hartelijk dank, en nog een fijne dag

 

[edmoor]

Graag gedaan en hetzelfde gewenst