XL 2013 envoie tableau dans corp du mail vba

[David62800]

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' identifiant et mot de passe
merci de votre aide
si vous avec une autre solution pour un envoie du tableau avec enregistrement et envoie en pièce jointe je suis preneur aussi

voici mon code actuel

Sub EnvoiMail()

'declaration des variables
Dim Mafeuille As Worksheet ' la feuille contenant le tableau de board
Dim NbLigne As Integer ' Nombre de lignes a recuperer
'Affectation des variables
Set Mafeuille = ThisWorkbook.Sheets("Dashboard") 'on definit le nom de la feuille
'desactivation du rafraichissements de l'ecran
Application.ScreenUpdating = False
'on calcule le nombre de ligne a prendre dans la feuille a partir de la colonne A
NbLigne = Mafeuille.Range("A" & Application.Rows.Count).End(xlUp).Row
'on selectione la plage a copier
Mafeuille.Range("A1:O" & NbLigne).Select
'avec l'objet MailEnvoie on envoie dans le corps du mail
With Selection.Parent.MailEnvelope.Item
.to = Mafeuille.Range("R1").Value 'destinataire direct
.co = Mafeuille.Range("R3").Value 'destinataire en copie
.bcc = "" 'destinataire en copie invisible
.Subject = Mafeuille.Range("R2").Value 'objet du mail
.attachements.Add "CheminFichier" 'piece jointe
.Send 'envoie du mail
.display 'affichage du mail
End With

'confirmation d'envoie du mail
MsgBox "Votre mail a été envoyé avec succé.", vbInformation + vbOKOnly, "Confirmation envoie mail"

'activation du rafraichissements de l'ecran
Application.ScreenUpdating = True
End Sub

 

[Oneida]

Bonjour,

Vos donnees dest etc sont en colonne P pas R
Votre tableau vous le voulez dans le corps du Mail ou dans un classeur?
Y a pas de corps de message!

 

[Staple1600]

Bonjour le fil

En guise de source d'inspiration ou de tutoriel, voir ce que propose @Dudu2 dans les tutoriaux du forum

VBA - Structure d'interface et fonction pour envoyer un mail Outlook - Mises à jour

excel-downloads.com

 

[David62800]

Bonjour,

Vos donnees dest etc sont en colonne P pas R
Votre tableau vous le voulez dans le corps du Mail ou dans un classeur?
Y a pas de corps de message!

Bonjour Staple,le filoui les données sont a déplacer de p a r
Pour l envoie du tableau peu importe dans le corps du mail ou en pièce jointe le principal c'est que ça fonctionne et que j arrive a comprendre le code simplement
Le corps du mail serait certainement en ligne R4 R5 R6
merci pour l aide
David

 

[David62800]

Bonjour le fil

En guise de source d'inspiration ou de tutoriel, voir ce que propose @Dudu2 dans les tutoriaux du forum

VBA - Structure d'interface et fonction pour envoyer un mail Outlook - Mises à jour

excel-downloads.com

Bonjour oneida,le filoui les données sont a déplacer de p a r
Pour l envoie du tableau peu importe dans le corps du mail ou en pièce jointe le principal c'est que ça fonctionne et que j arrive a comprendre le code simplement
Le corps du mail serait certainement en ligne R4 R5 R6
merci pour l aide
David

 

[patricktoulon]

bonjour
pour mettre une table dans le corps d'un mail outlook
il y a moult moyen
perso depuis que je connais outlook (et c'est pas hier)
j'ai toujours travaillé en html même si aujourd'hui on peut travailler le body avec les même outils que word
et que beaucoup de personne utilise ce procédé
(lire ma devise dans ma signature)

j'ai donc conçu diverses méthode pour convertir une plage de cellules en html dynamiquement
mais il y en a une pour les gros fainéants qui n'ont pas envie d’apprendre le DOM
c'est d'utiliser un webbrowser dans un userform (et le must!!!! pas besoins de l'afficher si l'on veut)
j'ai donc un classeur demo que je propose a qui en veut bien
capable de me transformer une colonne en paragraphe html
capable de transformer une cellule contenant plusieurs ligne de texte en pragraphe html
bien sur une plage en table html ca va de soit
etc..etc...
l'astuce ici est d'utiliser un userform comme une classe et accessoirement (c'est ça qui est rigolo dans l'histoire) comme un userform

démonstration

allez on teste outlook

 

[David62800]

bonjour
je ne trouve pas sur le forum un code vba simple pour faire un envoie avec gmail ou en utilisant https://outlook.live.com/(car mon application outlook plante a chaque fois)
exemple soit
envoyer le tableau de la feuille dans le corp du message avec les element en R1 R2 R3 etc
envoyer la feuille en piece jointe
une personne aurais ca dans ces archives ?

 

[Staple1600]

Re

une personne aurais ca dans ces archives ?

Tu as téléchargé et essayé la ressource issue du lien que j'ai mis dans le message#3 ?

 

[David62800]

bonjour
pour mettre une table dans le corps d'un mail outlook
il y a moult moyen
perso depuis que je connais outlook (et c'est pas hier)
j'ai toujours travaillé en html même si aujourd'hui on peut travailler le body avec les même outils que word
et que beaucoup de personne utilise ce procédé
(lire ma devise dans ma signature)

j'ai donc conçu diverses méthode pour convertir une plage de cellules en html dynamiquement
mais il y en a une pour les gros fainéants qui n'ont pas envie d’apprendre le DOM
c'est d'utiliser un webbrowser dans un userform (et le must!!!! pas besoins de l'afficher si l'on veut)
j'ai donc un classeur demo que je propose a qui en veut bien
capable de me transformer une colonne en paragraphe html
capable de transformer une cellule contenant plusieurs ligne de texte en pragraphe html
bien sur une plage en table html ca va de soit
etc..etc...
l'astuce ici est d'utiliser un userform comme une classe et accessoirement (c'est ça qui est rigolo dans l'histoire) comme un userform

démonstration
Regarde la pièce jointe 1180145
Regarde la pièce jointe 1180146

allez on teste outlook

Regarde la pièce jointe 1180147

bonjour oui je l'ai telecharger mais j'ai des probeme avec outlook il a du mal a se connecter meme sur un second pc
peut on le faire avec gmail ?

car ca bloque la
Set mItem = OutLook.CreateItem(0)


ou alors il faudrait passer par outlook mais page web est ce possible?

Microsoft Outlook Personal Email and Calendar | Microsoft 365

Download free Microsoft Outlook email and calendar, plus Office Online apps like Word, Excel, and PowerPoint. Sign in to access your Outlook email account.

outlook.live.com

 

[Staple1600]

Re

Il faut activer peut-être les références à Outlook

Pour passer par gmail, voir les exemples avec CDO dans les archives du forum

Effectuez une recherche sur Excel Downloads...

excel-downloads.com

 

[Staple1600]

Re

[Précisions]
@patricktoulon
Le contrôle webrowser n'est pas disponible(*) sur Excel 2013 et supérieur
(sauf à mettre les mains dans le cambouis (aka la BDR))
C'est encore plus vrai, si Excel en 64bits

(*) ou plutôt dysfonctionne.

 

[David62800]

Re

Il faut activer peut-être les références à Outlook

Pour passer par gmail, voir les exemples avec CDO dans les archives du forum

Effectuez une recherche sur Excel Downloads...

excel-downloads.com

c est bizard mon appli outlook ne se connecte pas bloqué alors que sur une page web ca fonctionne
au de ton fichier ca devrait fonctionner a voir ton gif
ets il possible de passer par https://outlook.live.com/ ?

 

[Staple1600]

Re

@David62800
Moi, je n'ai envoyé aucun gif

Tu as fait la recherche dans les archives avec ces mots clés
CDO gmail

(voir le lien dans le message#10)

 

[patricktoulon]

c est bizard mon appli outlook ne se connecte pas bloqué alors que sur une page web ca fonctionne
au de ton fichier ca devrait fonctionner a voir ton gif
ets il possible de passer par https://outlook.live.com/ ?

re
@David62800 non car Ie n'est plus suivie

@Staple1600
cdo pareil marche pas tout le temps

le webbrowser c'est pas compliqué quand tu sais ou chercher pas la peine de te mettre la rate au cour bouillon
j'avais fait un pdf pour 2013 et les versions sups version clickandrun et autres que j'avais posté pour un demandeur

 

[David62800]

re
@David62800 non car Ie n'est plus suivie

@Staple1600
cdo pareil marche pas tout le temps

le webbrowser c'est pas compliqué quand tu sais ou chercher pas la peine de te mettre la rate au cour bouillon
j'avais fait un pdf pour 2013 et les versions sups version clickandrun et autres que j'avais posté pour un demandeur

Je cherche mais ne trouve pas