Sub envoi_avec_outlook_b(n)
' déclaration des variables
Dim RepName As String
Dim appOutlook As Outlook.Application
Dim message As Outlook.MailItem
Dim dest As String
login = ActiveSheet.Range("C" & n)
mdp = ActiveSheet.Range("D" & n)
nom = Split(ActiveSheet.Range("B" & n), "@")(0)
dest = ActiveSheet.Range("B" & n)
Sheets("Texte").Copy
ActiveSheet.Range("B9") = ActiveSheet.Range("B9") & " " & login
ActiveSheet.Range("B10") = ActiveSheet.Range("B10") & " " & mdp
ActiveSheet.Name = nom
ActiveWorkbook.SaveAs Filename:="C:\temp\" & nom & ".xls"
RepName = "C:\temp\" & nom & ".xls"
'Crée une session Microsoft Outlook
Set appOutlook = CreateObject("outlook.application")
'Crée un nouveau message
Set message = appOutlook.CreateItem(olMailItem)
' initialisation de variables
'Titre, texte, destinataires, etc ... et envoi.
With message
.Subject = "Inscription au parcours de 'e-formation' au Contrôle de Gestion"
.Body = "Bonjour, voir fichier ci-joint "
.Recipients.Add (dest)
.Attachments.Add RepName
.Send
End With
ActiveWorkbook.Close
ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Range("A" & n), Address:= _
"C:\temp\" & nom & ".xls", TextToDisplay:="envoi"
End Sub