Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem
On Error Resume Next
'Teste si une instance d'Outlook est déjà ouverte
Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
'Outlook non ouvert, lancement d'une instance à partir du code
Set oOutlookApp = CreateObject("Outlook.Application")
bStarted = True
End If
'Crée un nouveau mail
Set oItem = oOutlookApp.CreateItem(olMailItem)
With oItem
'Destinataire du mail
.To = dest
'Définit un mail en copie cachée
.CC = "monmail@mail.fr"
'Définit le sujet
.Subject = "Mot de passe oublié"
'Le contenu du document est utilisé comme corps d'email
.Body = "Bonjour" & vbCrLf & "Veuillez trouver ci-joint le mot de passe" & vbCrLf
'Pour attacher une pièce jointe
'.Attachments.Add Source:="G:\titi.xls"
'Send permet d'envoyer le mail
.Send 'Display
End With
If bStarted Then
'Si Outlook est lancé depuis le code, on le ferme (??!)
oOutlookApp.Quit
End If
'Nettoie les variables
Set oItem = Nothing
Set oOutlookApp = Nothing
End Sub