Bonjours,
Je suis acctuellement en cour de création d'une base de donnée sous excel, cette base de donnée doit gèrer toute les maintenances de mon entreprise. Il ne me reste plus que l'envois de mail d'alerte à faire pour qu'elle soit opérationnel. C'est là le problème.
Je peut avec mes code acctuel envoyer une feuille de mon classeur directement, mais je voudrais pouvoir l'envoyer en différé.
Ex: prévoire un envois dans 1 mois puis un autre dans 2 mois et ceci sans réouvrir mon fichier excel.
Bon ci c impossible dite le mois aussi
voici mon code acctuel:
Sub envoi_Feuille()
répertoireAppli = ActiveWorkbook.Path
Sheets("Imprimé" ).Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs répertoireAppli & "\Imprimé.xls"
ActiveWindow.Close
'--- Envoi par mail
Dim olapp As Outlook.Application
Sheets("Utilisateur_mdp" ).Select
Range("D2" ).Select
Do While Not IsEmpty(ActiveCell)
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ActiveCell.Value
msg.Subject = Range("A2" ).Value
msg.Body = Range("A5" ).Value & Chr(13) & Chr(13) & Range("A8" ).Value & Chr(13) & Chr(13)
msg.Attachments.Add Source:=répertoireAppli & "\Imprimé.xls"
msg.Send
ActiveCell.Offset(1, 0).Select
Loop
'suppression du fichier créer
Kill répertoireAppli & "\Imprimé.xls"
End Sub
Sub lit_messagerie()
Dim olapp As Outlook.Application
Dim olns As Outlook.Namespace
Dim olmf As Outlook.MAPIFolder
Dim obj As Object
Set olapp = New Outlook.Application
Set olns = olapp.GetNamespace("mapi" )
Set olmf = olns.GetDefaultFolder(olFolderInbox)
For Each obj In olmf.Items
MsgBox obj.Subject
Next
End Sub
Merci d'avance
Cordialement
Chevalier saga
