XL 2019 envoie sélection par mail bloquer

David62800

XLDnaute Nouveau
bonjour les amis
j essaye de créer un code vba pour envoyé la sélection par mail
mais ca bloque sur
Set oOutlook = CreateObjet("Outlook.application")

ou est le problème svp

Sub test5()
'selection par mail faire avant()
Dim oOutlook As Object
Set oOutlook = CreateObjet("Outlook.application")
Dim oMail As objet
Set oMail = oOutlook.createItem(o)
With oMail
.to = "*********@gmail.com"
.Subject = "Extrait tableau" & Thisworbook.Name
.body = ActiveCell
.Display

End With
End Sub

exemple pour la sélection A6:R20


merci de votre aide
david
 
C

Compte Supprimé 979

Guest
Bonjour David62800 et bienvenue,

Si ça bloque, c'est que vous n'avez pas Outlook 🤔

D'ailleurs vous avez vous même donné la réponse ici

A+
 

David62800

XLDnaute Nouveau
Bonjour David62800 et bienvenue,

Si ça bloque, c'est que vous n'avez pas Outlook 🤔

D'ailleurs vous avez vous même donné la réponse ici

A+
bonjour le fil
je travail sur un autre pc ou Outlook fonctionne
mais le code non
 

Discussions similaires

Réponses
2
Affichages
360