Erreur exécution 438

Bonjour,

Après avoir vu plein de tutos concernant l'envoi de mail avec Outlook depuis une macro, j'ai décidé de tester moi-même : voici mon code

Private Sub CommandButton2_Click()
UserForm1.Hide

'Définition des objets Outlook et du message.
Dim ObjOutlook As Object
Dim ObjMessage As Object

'Ouverture d'Outlook et création d'un message vierge
Set ObjOutlook = CreateObject("Outlook.Application")
Set ObjMessage = ObjOutlook.CreateItem(0)
With ObjMessage
.HTMLBody = ""
.From = "xxxx@xxxx.xx"
End With
ObjMessage.Display

'Libération des variables
Set ObjOutlook = Nothing
End Sub

La ligne .From = "xxxx@xxxx.xx" pose problème. En effet une erreur m'indique "Erreur d'exécution 438 propriété ou méthode non gérée par cet objet "
En fait, j'ai 2 comptes enregistrées sur outlook et je souhaiterai créer un code VBA qui décide quel compte utiliser suivant le bouton sur lequel on a cliqué. Mais, dois-je utiliser ".From" ?

Que dois-je faire?

Je vous remercie,
Bonne journée,
keke38000