Probleme (non commun) d'envoi avec sendmail

Private Sub CommandButtonAjouter_Click() ''Code placer sur le bouton d'un userform (USFNewStaff) comportant que des textbox

Dim Dest1 As Variant (meme probleme si String)
Dest1 = ThisWorkbook.Names("BigBossEmailAdresse1").RefersToRange

''''' [...] Code couper car tres long, normallement ici c'est la recuperation des valeurs de l'userform puis leur copie dans un tableau faisant office de base de données salariés

'''''''''''''''''''''''''''''' CREATION OBJET WORD


Dim WDApp As Word.Application
Dim WDDoc As Word.Document

Set WDApp = New Word.Application

With WDApp
Set WDDoc = .Documents.Add(Template:=ThisWorkbook.Path & "\CDI TYPE.dotx")
.Visible = True
End With

'''''' [...] J'ai couper un peu le code, car tres long. Normallement ici c'est le remplacement de bookmark dans le document word, par des valeurs tirés de l'userform


WDDoc.SaveAs Filename:=ThisWorkbook.Path & "\CONTRATS\Contrat de " & TextBoxPrenom.Value & " " & TextBoxNom.Value & ".docx"

WDDoc.Activate

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''' SELECTION DU CONTRAT ET ENVOI A BIGBOSS PAR EMAIL
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



''''''''''''''''''''''''''''''''''' envoie du mail

If Dest1 <> "" Then
WDDoc.SendMail Dest1 (marche parfaitement ailleurs dans l'appli, mais "Erreur de compilation : Nbres arguments incorrect ou affectation de propriété incorrecte. Meme erreur si je remplace Dest1 par "toto@to.to" par ex)"
' WDDoc.SendMail (si je ne passse pas d'argument destinataire, cela fonctionne à moitié, cad, creation du mail, attachement du doc tout va bien mais ouverte d'une fenetre "mail" qui demande l'email du destinataire)
End If


' ''''''''''''''''''' MESSAGE DE CONFIRMATION
'
TextBoxEmailNom1 = ThisWorkbook.Names("BigBossEmailNom1").RefersToRange

'
MsgBox "Le planning a été envoyé à " _
& Chr(13) & Chr(13) & TextBoxEmailNom1, vbOKOnly, "Rapport Mensuel"
'
'

'''''''''''''''''''''''''''''''''''''''' FIN PROCEDURE EMAIL ''''''''''''''''''''''''

Set WDDoc = Nothing
Set WDApp = Nothing


Unload USFNewStaff

ThisWorkbook.Protect Password:="toto"

Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic


MsgBox "Salarié Ajouté"





On Error GoTo 0
Exit Sub

CommandButtonAjouter_Click_Error:

Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

Unload Me

ThisWorkbook.Protect Password:="toto"
MsgBox "ERREUR, Salarié NON Ajouté"

End Sub

Cliquez pour agrandir...