• 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.

Macro (button) PDF/Mail

Status
Niet open voor verdere reacties.
RinuS2017

RinuS2017

Gebruiker
Lid geworden
15 feb 2017
Berichten
53
Ik heb lopen zoeken naar een macro hier op helpmij om vanuit excel 2016, van een specifiek werkblad, een PDF te maken, mail programma te openen (Outlook) en mailadres in te vullen welke in het te mailen werkblad staat.
Ik vond zo'n macro maar die is het net niet. die oplossing is van 7 mei, 19:56 van MrBob

Concreet:
ik heb een excel doc met 12 werkbladen, werkblad 2 "Offerte print" moet als PDF worden gemaild via Outlook.
Het mailadres dat in Outlook moet worden ingevuld staat in hetzelfde werkblad in cel Q14

Met het opnemen van een macro en die dan gebruiken is om verschillende redenen niet gebruiksvriendelijk
o.a ook omdat dan niet specifiek 1 werkblad tot PDF wordt gemaakt maar alle 12 de werkbladen.

Kan iemand mij hiermee helpen?

Grt RinuS2017
 
Beste Rinus,
Ik denk dat ik meer dan 50 van dergelijke scripts in mijn excel kastje heb liggen, en eentje is waarschijnlijk binnen een uurtje aangepast volgens uw wensen.
Maar ik word er gestoord van als er geen vb bestandje is gepost.
Post een vb bestandje met Jan, Piet , Katrien en gele piet gegevens en ik help u verder.
(Ik weet dat zwarte piet niet meer populair is in Nederland)
 
Laatst bewerkt:
Lijkt me niet moeilijk, alle gegevens zijn aanwezig in de vraagstelling @gast0660.
 
Dit bijvoorbeeld:
Code: 
Private Sub CommandButton1_Click()
    Dim PDF As String
    Dim MailTo As String
    Dim OutApp As Object
    Dim OutMail As Object
    
    PDF = Environ("Userprofile") & "\Desktop\Offerte.pdf"
    With Sheets("Offerte print")
        MailTo = .Range("Q14")
        .ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=PDF, _
        OpenAfterPublish:=False
    End With
        
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .to = MailTo
        .CC = ""
        .BCC = ""
        .Subject = "Offerte"
        .Body = "Bij deze de offerte"
        .Attachments.Add PDF
        .Display [COLOR="#008000"]'Of gebruik .Send[/COLOR]
    End With
End Sub
 
Laatst bewerkt:
Ik ga morgen meteen kijken
Zover ik het met "lezen" kan zien klopt het

Dank iig voor jouw snelle reactie Edmoor

Grt Rinus2017
 
Macro (button) PDF/Mail II

Beste Edmoor,

ik heb jouw macro geprobeerd, is op zich goed.

1) ik heb een paar wijzigingen aan gebracht omdat nu 2 werkbladen in 1 PDF moeten komen.
2)ook het gemaakte PDF bestand moet bewaard worden in een bepaalde directory
3)de naam van het bestand moet gelijk zijn aan de naam van de offerte zelf


Zie hieronder mijn aangepaste macro.
Op de geel gemarkeerde tekst loopt het fout, deze bewerking is niet bekend is de melding die ik krijg
De blauwe regels, of delen daarvan, zijn de wijzigingen die ik heb aangebracht

Alles er onder kan ik niet checken met F8

Heb jij een oplossing?
 

Bijlagen

  • Sub Knop1.docx
    12,7 KB · Weergaven: 64
Waarom niet gewoon even de code hier plaatsen?
 
Dan had de geel gemarkeerde rege niet.
Wil je 'm alsnog hier geplaatst hebben?
 
Die code is op meerdere plekken onjuist. Probeer deze eens:
Code: 
Sub Knop1_Klikken()

    Dim PDF As String
    Dim Naam As String
    Dim MailTo As String
    Dim OutApp As Object
    Dim OutMail As Object
    
    Naam = Range("W1") & ".pdf"
    PDF = "C:\Data\Documents\Orders\" & Naam
    MailTo = Sheets("Offerte print").Range("Q14")
    
    ThisWorkbook.Sheets(Array("Offerte print", "Orderbevestiging")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=PDF, _
    OpenAfterPublish:=True
     
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .to = MailTo
        .CC = ""
        .BCC = ""
        .Subject = "Offerte " & Naam
        .Body = "Bij deze de offerte"
        .Attachments.Add PDF
        .Display [COLOR="#008000"]'Of gebruik .Send[/COLOR]
    End With
End Sub
 
Macro (button) PDF/Mail II

Hi Edmoor,

ik krijg een foutmelding op de regel(s):
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=PDF, _
OpenAfterPublish:=True

melding:
Fout - 2147024773 (8007007b) tijdens uitvoering:

Het document is niet opgeslagen.


Sub Knop1_Klikken()

Dim PDF As String
Dim Naam As String
Dim MailTo As String
Dim OutApp As Object
Dim OutMail As Object

Naam = Range("W1") & ".pdf"
PDF = "C:\Data\Documents\Orders" & Naam
MailTo = Sheets("Offerte print").Range("Q14")

ThisWorkbook.Sheets(Array("Offerte print", "Orderbevestiging")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=PDF, _
OpenAfterPublish:=True

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.to = MailTo
.CC = ""
.BCC = ""
.Subject = "Offerte " & Naam
.Body = "Bij deze de offerte"
.Attachments.Add PDF
.Display 'Of gebruik .Send
End With
End Sub

GRT RinuS2017
 
Doet het bij mij prima, maar ik zal vanavond nog eens kijken.
 
Doet het bij mij nog steeds prima:
Bekijk bijlage Offerte.xlsm

Wellicht dat je hier het rode teken mist?
PDF = "C:\Data\Documents\Orders\" & Naam

Zorg er tevens voor dat je in Naam (W1) geen tekens gebruikt die niet in de naam van een bestand voor mogen komen.
 
Laatst bewerkt:
ik heb geen type fouten gemaakt, doc naam is 5 letters en 5 cijfers (geen spaties oid)

kan zijn dat soms info mist op Q14 (=emailadres)

kan de macro dan zorgen dat iig de PDF wordt gemaakt en outlook opent?

Grt RinuS2017
 
Dat is precies wat de macro doet.
Wat er dan bij jou mee mis gaat heb ik zo geen antwoord op.
Plaats dan je Excel document hier.
 
Je document doet het hier prima.
Er wordt een PDF met de naam BLANCO V 1.0.pdf gemaakt in C:\Data\Documents\Orders
Daarna wordt er een nieuwe mail gemaakt en in Outlook geopend met die PDF als bijlage.
 
Geen idee waarom het zo is, maar bij mij blijft steeds dezelfde foutmelding verschijnen.

Kan het met het systeem te maken hebben? ik gebruik Windows 10 Pro
Kan het met de versie Acrobat te maken hebben? ik gebruik DC

Ik heb ook al

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=PDF, _
OpenAfterPublish:=True

veranderd in
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=PDF, _
OpenAfterPublish:=False

Dit omdat het gele pijltje in VBA op juist die regel blijft staan

Misschien andere lezers die een oplossing weten?


Grt RinuS2017
 
Dit pad bestaat en is toegankelijk?
"C:\Data\Documents\Orders"
 
Ik ga me schamen, :(
ik heb het pad gekopieerd van verkenner naar macro en het werkt.

excuus, daar had ik zelf ook moeten (kunnen) verzinnen.

Ik dank je nogmaals voor jouw inspanningen. Ik ben er erg blij mee.


Grt RinuS2017
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan