Sub Email_manu()
' envoi par mail du fichier au destinataire (UID) avec actions manuelles
Dim outapp As Object
Dim outmail As Object
mail_UID = Sheets("FIU").Cells(6, 3).Value & " " & Sheets("FIU").Cells(7, 3).Value
mail_corr = Sheets("TDC").Cells(11, 4).Value
mail_com = Sheets("TDC").Cells(14, 3).Value
Set outapp = CreateObject("outlook.application")
Set outmail = outapp.createitem(0)
With outmail
.To = mail_UID
.CC = "deploiement.neos; 373186;" & mail_corr
.BCC = ""
.Subject = "[Projet] Inventaire Déclaratif"
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><A HREF=http://intranet.sfdi.xxx/e-mag/neaos/accueil/fr><IMG SRC=" & mail_com & "></A></HTML>"
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
On Error GoTo 0
End Sub