1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
|
Sub Macro1()
Dim CorpsMessage As String
Dim reponse As Integer
Dim message As String, titre As String
message = "ATTENTION ! Les fiches de conformité doivent être toutes transférées pour la journée. La journée est-elle terminée ?"
titre = "Feuille de conformité"
reponse = MsgBox(message, vbCritical + vbYesNo, titre)
If reponse = vbNo Then
Exit Sub
End If
Application.ScreenUpdating = False
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.To = "**@**"
MonMessage.Subject = "Feuilles de conformité, feuille de saisies"
MonMessage.body = "Bonjour," & vbCrLf & vbCrLf _
& "Veuillez trouvez ci-joint les feuilles en rapport avec l'agréage" & Range("C74").Value & vbCrLf & vbCrLf _
& "Cordialement " & vbCrLf _
MonMessage.Attachments.Add "S:\Publicag\projet d'agréage\Sauvegardes\Sauvegardes\Feuille de saisies_280411.xls"
MonMessage.Attachments.Add "S:\Publicag\projet d'agréage\Sauvegardes\Sauvegardes\Feuilles_De_Conformité.xls"
MonMessage.display
Set MonOutlook = Nothing
Application.ScreenUpdating = True
End Sub |
Partager