Springen naar inhoud


- - - - -

Hulpvraag : Hoe Kan Ik Via Vba Een Pdf Als Bijlage Verzenden


  • Log in a.u.b. om te beantwoorden
Er zijn 1 reacties in dit onderwerp

#1 pascal2303

pascal2303

    Starting Developer

  • Leden
  • 1 berichten
    Laatst bezocht 16 jun 2014 17:59

Geplaatst op 16 juni 2014 - 17:40

Hulpvraag : PDF bijlage aan email toevoegen icm onderstaande code


Goedemiddag,

Ik ben bezig met het ontwikkelen van een programmatje, veel zoeken en leren om VBA beter te begrijpen en toepassen. Na urenlang zoeken op het internet krijg ik onderstaande niet voor elkaar en hoop ik dat er iemand is die me hierbij kan helpen.

Wat me lukt :
Automatisch een email genereren met alle inhoud.

Wat me (nog) niet lukt :
Een PDF bestand toevoegen als bijlage, het opslaan gaat prima, op locatie gekoppeld via een cel met bestandsnaam idem. Nu wil ik dat zelfde opgeslagen bestand toevoegen in een email. Hieronder de macros die ik tot dusver heb om een email te verzenden (bijlage lukt niet) en om een bepaald tabblad als PDF op te slaan zoals gezegd met gekoppelde bestandsnaam en locatie. Deze werken helemaal naar wens met alle mogelijkheden die erin zitten.

Graag zou ik deze samenvoegen zodat ze als 1 geheel kunnen functioneren.

MAIL VERSTUREN
Visual Basic Code:

Sub Stuur_Email()
' Working in Office 2000-2013

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strbody = "Geachte " & ActiveSheet.Range("A6") & "," & _
"" & vbNewLine

On Error Resume Next

With OutMail
.Display
.to = ActiveSheet.Range("A5").Value
.CC = ""
.BCC = ""
.Subject = ""
.Attachments.Add ActiveSheet.Range("E4")
.HTMLBody = strbody & "<br>" & .HTMLBody
.Display

End With

On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub


OPSLAAN BESTAND :
Visual Basic Code:
Sub opslaan()
Dim stPath As String
With Sheets("Facturatie")
stPath = "C':\Users\Pascal\Google Drive\AVI ADMIN\Klanten\Particuliere Klanten\"
stPath = stPath & .Range("d22").Value & "\"
With CreateObject("Scripting.FileSystemObject")
End With
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
Range("E4") & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End With
End Sub


Nogmaals, ik hoop dat iemand me kan helpen ik hang echt al dagen vast hierin en wat ik ook probeer het wil me niet lukken.

Thnx !
Groet. Pascal



#2 tromt

tromt

    Professional Developer

  • Leden
  • PipPipPipPip
  • 303 berichten
    Laatst bezocht 17 apr 2018 10:02
  • LocatieRijen (NB)

Geplaatst op 17 juni 2014 - 11:27

Een celwaarde is niet automatisch een string vermoed ik.
en dan: probeer eens
.Attachments.Add(Attach)
waar Attach de string is uit de bedoelde cel




0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


Untitled 1

Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)