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

pdf maken, opslaan en mailen.

Status
Niet open voor verdere reacties.

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?

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?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan