XL 2019 envoie sélection par mail bloquer

[David62800]

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

 

[Compte Supprimé 979]

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

XL 2013 - envoie tableau dans corp du mail vba

bonjour je cherche a créer une macro pour faire l'envoie un tableau en 1 clic voici mon code actuel avec Outlook mais mais ca bloque avec ma version Outlook apparemment est il possible de modifier mon code pour que l'envoie ce fait avec Gmail (page internet) en y incluant directement l'...

excel-downloads.com

A+

 

[David62800]

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

XL 2013 - envoie tableau dans corp du mail vba

bonjour je cherche a créer une macro pour faire l'envoie un tableau en 1 clic voici mon code actuel avec Outlook mais mais ca bloque avec ma version Outlook apparemment est il possible de modifier mon code pour que l'envoie ce fait avec Gmail (page internet) en y incluant directement l'...

excel-downloads.com

A+

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