Andre175
Gebruiker
- Lid geworden
- 2 feb 2018
- Berichten
- 351
Ik heb van alles geprobeerd, in Cel K6 op blad "Apex"staat het mail adres.
.Range ("K6").Value
.("K6")
("K6")
niets wil.
waarom werkt onderstaande niet?
terwijl dit gwoon wel doet.
Hetzelfde heb ik met het opslaan van het pdf bestand.
het volgende gaat goed
zet ik ipv het pad met bestandsnaam een verwijzing naar een cel dan gaat het fout.
Hoe formuleer ik nu de code als ik naar een cel wil verwijzen?
.Range ("K6").Value
.("K6")
("K6")
niets wil.
waarom werkt onderstaande niet?
Code:
If FileName <> "" Then
RDB_Mail_PDF_Outlook FileNamePDF:=FileName, _
StrTo:=Apex.Range("K6").Value, _
StrCC:="", _
StrBCC:="", _
StrSubject:="This is the subject", _
Signature:=True, _
Send:=False, _
StrBody:="<H3><B>Dear Customer</B></H3><br>" & _
"<body>See the attached PDF file with the last figures." & _
"<br><br>" & "Regards Ron de bruin</body>"
terwijl dit gwoon wel doet.
Code:
If FileName <> "" Then
RDB_Mail_PDF_Outlook FileNamePDF:=FileName, _
StrTo:="test@test.nl", _
StrCC:="", _
StrBCC:="", _
StrSubject:="This is the subject", _
Signature:=True, _
Send:=False, _
StrBody:="<H3><B>Dear Customer</B></H3><br>" & _
"<body>See the attached PDF file with the last figures." & _
"<br><br>" & "Regards Ron de bruin</body>"
Hetzelfde heb ik met het opslaan van het pdf bestand.
het volgende gaat goed
Code:
If ActiveWindow.SelectedSheets.Count > 1 Then
MsgBox "There is more then one sheet selected," & vbNewLine & _
"ungroup the sheets and try the macro again"
Else
'Call the function with the correct arguments
'For a fixed range use this line
FileName = RDB_Create_PDF(Source:=Range("A1:I56"), _
FixedFilePathName:="D:\onedrive\1 GAM Transport\Fakturen\Debiteuren\Apex GmbH\2018\2018 02 16_1115_18012.pdf", _
OverwriteIfFileExist:=True, _
OpenPDFAfterPublish:=False)
zet ik ipv het pad met bestandsnaam een verwijzing naar een cel dan gaat het fout.
Hoe formuleer ik nu de code als ik naar een cel wil verwijzen?