Salut voici un bout de code fonctionnelle
pour pouvoir envoye le mail
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 = "tonmail@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
Cependant il faudrais qu 'il aille chercher le texte entrer dans mon userform3 voir si il existe dans ma page admin et si il est existe envoyer les infos de la cellules -1
merci de votre aide