Private Sub EnvoiD(dest$, dem$, dét$)Dim OApp As Object
Dim OMail As Object
Set OApp = CreateObject("Outlook.Application")
Set OMail = OApp.CreateItem(0)
With OMail
.To = dest
.Subject = "Demande d'assistance informatique"
.Body = "Bonjour," & vbCr & vbCr & _
"Merci de bien vouloir prendre en compte la demande d'assistance informatique ci-dessous," & vbCr & vbCr & _
"Description du problème:" & vbCr & _
dét & vbCr & vbCr & _
"Cordialement," & vbCr & vbCr & dem
.Display 'pour visualiser avant envoi
'.Send 'pour envoyer directement
End With
Set OMail = Nothing
Set OApp = Nothing
End Sub
Private Sub EnvoiA(dest$, dem$, dét$)
Dim OApp As Object
Dim OMail As Object
Set OApp = CreateObject("Outlook.Application")
Set OMail = OApp.CreateItem(0)
With OMail
.To = dest
.Subject = "Accord pour demande d'assistance informatique"
.Body = "Bonjour," & vbCr & vbCr & _
"Voici une demande d'assistance informatique transmise par " & dem & vbCr & _
"Merci par avance, pour sa prise en compte et traitement dans les meilleurs délais." & vbCr & vbCr & _
"Détails de la demande:" & vbCr & _
dét & vbCr & vbCr & _
"Cordialement," & vbCr & vbCr & _
"La Direction."
.Display 'pour visualiser avant envoi
'.Send 'pour envoyer directement
End With
Set OMail = Nothing
Set OApp = Nothing
End Sub