Auteur Topic: verzenden (gelezen 87790 keer)

Sunnybat · « **Gepost op:** 02 augustus 2024, 14:57:06 »

Hoi,
dit heb ik jaren geleden ergens gevonden en werkt perfect
nu is het alleen in PDF formaat, is het ook mogelijk als een XLS?

Code: [Selecteer]

Sub Mailen()
    Dim Bestand As String
    Dim OutApp As Object
    Dim OutMail As Object
    
    Bestand = ThisWorkbook.Path & "\" & ActiveSheet.Name & ".PDF"
    Range("A1:J50").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Bestand
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = "test@test.nl"
        .Subject = "Weekplanning"
        .Body = "Het bijgesloten document is in PDF"
        .Attachments.Add Bestand
        .Display [COLOR="#008000"] 'Of .Send[/COLOR]
    End With
End Sub

Della Jordan · « **Reactie #1 Gepost op:** 02 augustus 2024, 16:42:48 »

Probeer deze eens.

Code: [Selecteer]

Sub SendSheet()
    Fname = "geen voorbeeld"
    Sheets("sunnybat zonder voorbeeld"). Range("A1:J50").Copy
    With ThisWorkbook
        .SaveAs ThisWorkbook.Path & "\" & Fname, 51
        .Close False
    End With
    With CreateObject("outlook.application").createitem(0)
        .to = "hier het emailadres"
        .Subject = "hier het onderwerp of celverwijzing"
        .body = "In bijlage de gevraagde XXXX." & vbLf & vbLf & "Groeten Sunnybat"
        .attachments.Add ThisWorkbook.Path & "\" & Fname & ".xlsx"
        .display
    End With
    Kill ThisWorkbook.Path & "\" & Fname & ".xlsx"
End Sub

Misschien zou het interessant zijn om bij je vragen een voorbeeldbestandje te posten, de meeste helpers hier weten meer af van VBA dan jou, en ik denk niet dat je voor de secret service van de USA werkt
Het werkt altijd in je nadeel als wij een glazen bol moeten raadplegen.

Help!

Menu

Hulp bij posten

Zoeken

Recente topics

Auteur Topic: verzenden (gelezen 87790 keer)

Sunnybat

verzenden

Della Jordan

Re: verzenden