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
|
Public Sub Valider_Click()
Dim MonOutlook As Object
Dim MonMessage As Object
Dim Corps As String
Corps = "Bonjour," & Chr(10) & Chr(10) & _
"Une intervention MET/CT est prévue du " & DateDeb.Value & " au " & DateFin.Value & _
" sur le système " & NomSyst.Value & "." & Chr(10) & Chr(10) & _
"Nature de l'intervention : " & Ope.Value & " / " & DetOpe.Value & Chr(10) & "Technicien : " & Tech.Value & Chr(10) & Chr(10) & _
"Merci de confirmer ces dates avant le début de l'intervention." & Chr(10) & Chr(10) & InfosSup.Value & Chr(10) & Chr(10) & _
"Cordialement."
Set MonOutlook = CreateObject("outlook.application")
Set MonMessage = MonOutlook.CreateItem(0)
With MonMessage
.to = SL.Value
.CC = C_Q.Value & ";" & PlanProj.Value & "; sylvain.ducellier2@sanofi-aventis.com"
.Subject = "Intervention MET/CT sur " & NomSyst.Value & " (" & SapSyst.Value & ")"
.Body = Corps
.Display
End With
Unload UsfMailInterv
UsfMailInterv.Hide
End Sub |
Partager