Bonjour a tous
J'ai un fichier Excel qui est utiliser par plusieurs utilisateur.
j'ai une macros qui envoie un courriel par Outlook mais lorsque l'utilisate=
ur a Live Mail ca bloc...
Dim Subject As String, Attention As String
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Set ObjOutlook =3D New Outlook.Application
Set oBjMail =3D ObjOutlook.CreateItem(olMailItem)
With oBjMail
.To =3D "xxxxx@gmail.com" ' le destinataire
.Subject =3D "Inspection du " & Date ' l'objet du mail
.Attachments.Add ThisWorkbook.FullName
.Display ' Ici on peut supprimer pour l'envoyer sans v=E9rificat=
ion
Sheets("donne").Range("AG2") =3D ""
End With
End Sub
Comment modifier pour que la macros utilise outlook ou Live Mail=20
