pdf-file mailen

Status
Niet open voor verdere reacties.
Code:
[SIZE=1]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

    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) = "username"
        .Configuration(cdosendpassword) = "password"
        .Configuration.Fields.Update
        '.addattachment ThisWorkbook.Path & "\Filename:=Naam & ".pdf"
        .To = "Tol"
        .CC = " "
        .BCC = " "
        .From = "From"
        .Subject = "Factuur"

        Range("B2:M13").Copy
        With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
            .GetFromClipboard
            Textbody = Replace(Replace(.GetText, vbTab, " "), vbCrLf, vbLf)
        End With
        .Textbody = Textbody
        
        .Send
    End With

End Sub






[/SIZE]
 
Laatst bewerkt:
Dat was het
De tekst komt nu prachtig als brief in de mail
Bedankt voor de oplossing.
Vriendelijke groet / Jaap
 
snb,

Als ik de tekst (zie #17) met uw code (zie #20) in de mail zet,
dan word het euroteken een vraagteken.
Dat is raar.
Is dit nog te verhelpen?

Jaap
 
Code:
Sub M_snb()
    MsgBox Replace("~", "~", ChrW(&H20AC))
End Sub
 
snb,
ik weet niet waar ik de code moet inpassen of i.p.v. een bestaand gedeelte moet zetten.
Jaap
 
Ondersteunt je font in outlook wel het euroteken?
Maak een handmatig een nieuwe mail in outlook en kijk als je het euro teken kan invoegen, lukt dat?
 
Van een leerling (ook een oude) verwacht ik zelfwerkzaamheid. Dat is de beste manier om iets in de vingers te krijgen.
 
Alphamax

Als ik de tekst met het euroteken kopieer naar een nieuw emailbericht
dan staat hij er gewoon in. (had ik al geprobeerd)

snb , je heb helemaal gelijk maar ik heb ik kom er echt niet uit.
 
Ik heb het euroteken in de te mailen tekst maar gewijzigd in tekst achter het bedrag.
Ik krijg het gewoon niet voor elkaar om het euroteken in de mail te krijgen.

Jaap
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan