mercredi 25 février 2015

Excel iedere maand automatisch overzicht versturen

Posted on 07:49 by Unknown
Hoi,



Ik gebruikt de volgende code:



Sub OPSLAANenmail()

Dim AC As Range



' Bestand exporteren als PDF

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"C:\Users\ch5569\Documents\pdf overzicht\" & Range("B7") & ".pdf", Quality:= _

xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _

OpenAfterPublish:=False



If vbNo = MsgBox("Wilt u dit bestand nu ook verzenden?", vbYesNo, "Bestand opgeslagen") Then Exit Sub



' Verzenden via mail.

Err.Number = 0

On Error Resume Next

Set OutApp = GetObject(, "Outlook.Application")

If Err.Number > 0 Then

Set OutApp = CreateObject("Outlook.Application")

Err.Clear

End If

On Error GoTo 0

OutApp.Session.Logon

stbody = "Hallo" & " " & Range("A2") & vbNewLine & "" _

& vbNewLine & vbNewLine & "Hierbij de " & Range("B7") _

& vbNewLine & vbNewLine & " " & Range("H11") _

& vbNewLine & vbNewLine & "Met vriendelijke groeten," _

& vbNewLine & vbNewLine & Range("E2") _

& vbNewLine & vbNewLine & ""

Set OutMail = OutApp.CreateItem(0)

With OutMail

.To = ""

.CC = ""

.BCC = ""

.Subject = "Afleverlijst " & Range("B7")

.Body = stbody



.Attachments.Add "C:\Users\ch5569\Documents\pdf overzicht\" & Range("B7") & ".pdf"

.Send

End With

Set OutMail = Nothing

Set OutApp = Nothing





' Venster zegt .

MsgBox "Bestand is verzonden"

einde:

SaveAsUI = bSave

End Sub



Nu moet ik elke week een overzicht versturen op maandag morgen half 9. Is er een manier dat dit automatisch kan?





Excel iedere maand automatisch overzicht versturen
Categories:

0 commentaires:

Enregistrer un commentaire

Inscription à : Publier les commentaires (Atom)