Automatisation envoi fichier excel avec nom different

Question

Bonjour ,j'ai construit une base de donnees Access qui,entre autres renseigne tous les jours a heure precise un document excell et le sauvegarde sous un nom different (dependant de la date)
Comment faire pour automatiser l'envoi de ce document excell en mail?
Merci

cboulas · Answer

emaildest="toto@toto.com"
emailsubject = "Fichier Excel du : " & Format(Now, "dd/mm/yy")
        emailmsg = InputBox("Indiquer un léger message pour votre mail", "LCR Online")
        Dim ObjOutl As Object
        Dim objSession As Object
        On Error Resume Next
            Set ObjOutl = CreateObject("Outlook.Application")
            Set objSession = ObjOutl.GetNamespace("MAPI")
            Set ObjMessage = ObjOutl.CreateItem(0)
            objSession.Logon
            With ObjMessage
                .To = emaildest
                .CC = ""
                .Subject = emailsubject
                .Body = emailmsg
                .Attachments.Add App.Path & "\Excel.xls"
                .Send
            End With

        Set ObjMessage = Nothing
        objSession.Logoff
        Set objSession = Nothing
        Set ObjOutl = Nothing


Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

Automatisation envoi fichier excel avec nom different

1 réponse

Discussions similaires