Macro EXCEL et outlook

[kolivier]

Bonsoir les courageurx du forum.

Mon probleme est le suivant :

Des que je clique sur un bouton je dois pouvoir envoyer un mail en passant par Microsoft outlook et non outlook express, mais le probleme est que si Microsoft outlook s'ouvre bien, mon mail apparait dans une fenettre de outlook express.

Quelqu'un a t il une idée s'il vous plait.

voici mon code :

Private Sub mail1_Click()
Dim Dest As String
Dim Sujt As String
Dim Msg As String
Dest = UserForm.ADresseINTernet.Text
Sujt = 'Demande d'informations complémentaires'
Msg = impscore.Range('a151')
Shell 'C:\\Program Files\\Microsoft Office\\OFFICE11\\OUTLOOK.exe ' & _
'mailto:' & Dest & '?subject=' & Sujt & '&Body=' & Msg & ''
End Sub

Merci de votre grande gentillesse a me lire

 

[Charly2]

Bonjour kolivier, bonjour à toutes et à tous 🙂

Pour ton envoi, tu peux essayer ce code :

Sub mail1_Click()
'
' Activer la référence Microsoft Outlook xx.x Object Library
' (voir dans Outils/Références)
' Si XL97 et 1ère utilisation, la référence sort sous le nom
' Modèle d'objets pour Outlook...
'
'-------------------------
Dim AppOutlook As Object
Dim ElmtCourrier As Object
'-------------------------
'
  Set AppOutlook = CreateObject('Outlook.Application')

  Set ElmtCourrier = AppOutlook.CreateItem(0)

  With ElmtCourrier
    .To = UserForm.ADresseINTernet.Text
    .Subject = 'Demande d'informations complémentaires'
    .Body = impscore.Range('a151')
    .Send
  End With

End Sub

En espérant que cela réponde à ta demande :unsure:

NB : Ne pas oublier de cocher 'Envoyer les messages immédiatement lors de la connexion' dans le menu Outils / Options... / Remise du courrier dans Microsoft OutLook, ainsi que d'activer (sous vbe) la référence mise en commentaires dans le code.

A+ 😉

 

[kolivier]

Bonjour le forum et Merci pour ce début de réponse mais il y a ue erreur signalée ici :

Set AppOutlook = CreateObject('OUTLOOK.Application')

Je reste a votre coute a tous

 

[MichelXld]

bonsoir Kolivier , bonsoir cher Charly


quel est le message d'erreur ?

tu es sur qu'Outlook est installé sur le poste ?


bonne soirée
MichelXld