Oude leerling
Gebruiker
- Lid geworden
- 30 aug 2010
- Berichten
- 554
Geacht forum
Ik heb een factuur gemaakt en deze opgeslagen als een .pdf file.
Nu wil ik deze pdf-file ook via een code versturen naar mijn klant
en ook uitprinten.
Ik had een CDO-code gevonden maar die geeft de fout dat het gegevenstype niet gedefinieerd is. (zie mijn poging in de bijlage)
Weet u voor deze 2 problemen een oplossing.
Ik heb Gmail en werk met office 2016
Jaap
Sub Macro1()
Dim Naam As String
Naam = Range("B6").Value & " " & Range("D16").Value
ChDir "C:\Users\Gebruiker\Documents\Facturen 2017"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Naam & ".pdf"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Ik heb een factuur gemaakt en deze opgeslagen als een .pdf file.
Nu wil ik deze pdf-file ook via een code versturen naar mijn klant
en ook uitprinten.
Ik had een CDO-code gevonden maar die geeft de fout dat het gegevenstype niet gedefinieerd is. (zie mijn poging in de bijlage)
Weet u voor deze 2 problemen een oplossing.
Ik heb Gmail en werk met office 2016
Jaap
Sub Macro1()
Dim Naam As String
Naam = Range("B6").Value & " " & Range("D16").Value
ChDir "C:\Users\Gebruiker\Documents\Facturen 2017"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Naam & ".pdf"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Code:
With New CDO.Message
.Configuration(cdoSendUsingMethod) = 2
.Configuration(cdoSMTPServer) = "smtp.gmail.com"
.Configuration(cdoSMTPServerPort) = 465
.Configuration(cdoSMTPusessl) = True
.Configuration(cdoSMTPconnectiontimeout) = 60
.Configuration(cdoSMTPauthenticate) = 1
.Configuration(cdosendusername) = "[COLOR="#0000FF"]*knip*[/COLOR]"
.Configuration(cdosendpassword) = "[COLOR="#0000FF"]*knip*[/COLOR]"
.Configuration.Fields.Update
.addattachment ThisWorkbook.Path & "\Filename:=Naam & ".pdf"
.To = "G.Gerritsen@quicknet.nl"
.CC = " "
.BCC = " "
.From = "J.Zandvliet@gmail.com"
.Subject = "Factuur"
.TextBody = "Factuur"
.Send
End With
End Sub
Bijlagen
Laatst bewerkt door een moderator: