Ajouter texte messagerie instantanée en partant de Excel

[jn.steph]

Bonjour,
Je suis tout neuf sur Excel download mais j'ai déjà trouvé une réponse sur ce forum en 5 min. Vraiment TB? Merci gilbert_RGI !
Je cherche maintenant, à partir d'1 tableau Excel, à envoyer un message d'accompagnement sur messagerie instantanée avec la fonction : Envoyer>envoyer par email en pdf.
Est-possible sous excel ou est-ce un paramétrage sous Outlook ??

Merci.
JN

 

[gilbert_RGI]

Re : Ajouter texte messagerie instantanée en partant de Excel

Sub Outlook()
Dim OLF As Outlook.MAPIFolder, olMailItem As Outlook.MailItem, ToContact As Recipient
Set OLF = GetObject("", "Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add
With olMailItem
.Subject = "envoi d'un PDF"
Set ToContact = .Recipients.Add("[EMAIL="xxxxx.xxxxx@wanadoo.fr"]adresse mail[/EMAIL]")
.Body = "ton message" & vbline & "la suite"
.Attachments.Add "C:\chemin_du_pdf\fichier.pdf"
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With
Set ToContact = Nothing
Set olMailItem = Nothing
Set OLF = Nothing
End Sub

Bonjour

essayer ceci

 

[job75]

Re : Ajouter texte messagerie instantanée en partant de Excel

Bonjour jn.steph,

Cliquez en haut sur Recherche et tapez email pdf*

Cela vous donnera quelques idées.

Edit : salut Gilbert, quelle rapidité 🙂

A+

 

[gilbert_RGI]

Re : Ajouter texte messagerie instantanée en partant de Excel

Attention ne pas oublier de cocher la référence

cocher Outils / Références / Microsoft Outlook xx.0 object library

xx représentant la version

 

[jn.steph]

Re : Ajouter texte messagerie instantanée en partant de Excel

Merci pour la rapidité, j'ai affaire à un expert !!
Euh..., j'abuserais si je demandais un exemple ??

Merci.
JN

 

[gilbert_RGI]

Re : Ajouter texte messagerie instantanée en partant de Excel

ben il faut mettre ce code dans un module standard

cocher la référence

modifier le nom et le chemin du pdf dans le code

mettre une adresse mail là où c'est marqué dans le code

lancer la macro soit par un bouton soit par alt + F8

il est possibe de faire des liens avec des cellules pour renseigner du chemin, du nom ainsi que pour l'adresse mail

difficile de faire un exemple car ces renseignements sont différents de vous à moi 😉

 

[jn.steph]

Re : Ajouter texte messagerie instantanée en partant de Excel

OK, j'essaie, Merci!!

 

[jn.steph]

Re : Ajouter texte messagerie instantanée en partant de Excel

Bon dslé mais je n'y arrive pas...=(
Je ne sais pas si je me suis bien expliqué.
Ce que j'aimerais c'est, lorsque j'envoi mon ficher en pdf (image ci-jointe), un texte s'affice automatiquement ds le corps du message.
genre " vous trouverez ci-joint..."

Là, je sèche !!

 

[gilbert_RGI]

Re : Ajouter texte messagerie instantanée en partant de Excel

ceci chez moi fonctionne avec la version 2007 doit fonctionner aussi avec la version 2010

 Sub test()
      Dim Adresse As String
    Dim Objet As String
    Dim Text As String
     Adresse = "[EMAIL="tartempion.paul@wanadoo.fr"]tartempion.paul@wanadoo.fr[/EMAIL]"
    Objet = "Un test"
    Text = "le texte à envoyer avec la PJ"
    SendKeys Text
    Application.Dialogs(xlDialogSendMail).Show Adresse, Objet
 
End Sub

🙄

faire la mise en page avant de lancer la macro


Oups il perd le pdf .... désolé

 

[jn.steph]

Re : Ajouter texte messagerie instantanée en partant de Excel

Merci gilbert_RGI !
Ca marche en cliquant sur "executer la macro" mais pas en utilisant la fonction sur l'image jointe précédement "envoyer comme pièce jointe au format PDF". C'est cette fonction qui m'intéresse. de plus le texte ne s'affiche pas dans le corps du message...
Je continue à chercher.
Merci à tous.

 

[jn.steph]

Re : Ajouter texte messagerie instantanée en partant de Excel

Bon, je ne trouve pas...
Pas mal de trucs fonctionnent pas pas entièrement comme je le voudrais.
Si des ames charitables ont une solution à me proposer c'est avec plaisir.
Merci à tous !!

 

[jn.steph]

Re : Ajouter texte messagerie instantanée en partant de Excel

Je reviens sur mon appel de septembre dernier.
Qq'un a-t-il une solution à Mon pb ?!!