Insertion code 2D à un mail automatique Outlook

Bonjour à tous,

J'ai créé un mail en automatique à l'aide d'une macro sous Excel.

J'ai aussi créé une macro qui me génère un code 2D selon les informations choisies et que je place sur la cellule B27.

Mais là, impossible de faire que mon code 2D soit ajouté au mail auto, comme le reste du corps de texte.

Je pense que mon code 2D est placé SUR ma cellule B27 et pas DANS ma cellule B27.

Avez-vous des idées svp, je désespère ?

Merci beaucoup,

Julien

Bonjour,

et

Mais, comme on le dit souvent

un peu de lecture avant ici.... spécialement le point 6

annonces/explications-et-regles-a-respecter-t13.html

Alors

@+

Bonjour,

Je voulais joindre un fichier mais j'ai énormément d'informations confidentielles dedans donc je ne préfère pas. Est-ce qu'il y a d'autres infos dont tu pourrais avoir besoin et qui pourrait t'aider ?

Merci,

Julien

Bonjour,

Envoyer juste quelques données, non confidentielles mais significatives (2 à 5 lignes).

Je peux essayer de donner ça si ça peut aider...

Julien

Bonjour,

Le fichier Excel, avec le code

et tu mets des données fictives sur la fiche.

Bonjour,

J'ai protégé le classeur pour que tu puisses quand même consulter mes macros et je n'arrive donc pas à insérer mon code 2D dans mon corps de texte dans mon mail auto...

Merci,

Julien

Bonjour,

Aucune idée pour mon petit problème ?

Merci,

Julien

Bonjour,

De mon côté pas d'idée. Je passe la main Mais je continue à surveiller..

Bonjour,

Je te propose 2 solutions :

- éditer un pdf que tu joins au mail

ou bien

- faire un copier de B8:B24 et un coller par send keys dans le corps du mail

Bonjour,

Merci quand même Bernard22.

Steelson,

Je débute dans tout ce qui est VBA du coup quelques précisions stp :

1/ Tu peux éditer un PDF et le joindre au mail automatiquement grâce à un macro ?

2/ Je ne sais pas ce qu'est send keys...

Merci beaucoup,

Julien

Re-

Pour la solution 1/ PDF ...

Option Explicit
Sub envoi()

Dim messagerie As Object
Dim email As Object
Dim nompdf As String

On Error GoTo erreur

    nompdf = Environ("Temp") & "\" & "fichier test"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

    Set messagerie = CreateObject("Outlook.Application")
    Set email = messagerie.CreateItem(0)
    With email
        .to = Sheets("param").Range("B1")
        .Subject = Sheets("param").Range("B2")
        .body = "test"
        .ReadReceiptRequested = True
        .Attachments.Add nompdf & ".pdf"
        .display
    End With
    Set email = Nothing
    Set messagerie = Nothing

    Kill Environ("Temp") & "\" & "fichier test" & ".pdf"

Exit Sub

erreur:

    MsgBox "Erreur : " & Err.Number & vbLf & Err.Description

End Sub

Tu auras deviné que la feuille "param" contient le destinataire et le titre, et que la feuille acive est d'abord enregistrée au format pdf avant d'être jointe au mail. Il faut définir si besoin une zone d'impression pour ne mettre en pdf que ce qui est pertinent.

exemple joint

Pour la solution 2/, en particulier pour éviter de mettre des PJ aux mails, il faut copier une plage de cellule, ouvrir le document outlook (via excel) et envoyer d'excel vers outlook la commande (sendkeys) qui permettra de coller dans le document. Une petite temporisation permet à exel et outlook de bien se synchroniser.

Set messagerie = CreateObject("Outlook.Application")
Set email = messagerie.CreateItem(0)
With email
  .to = XXXX ' mettre destinataire
  .Subject = TTTT ' mettre titre
End With

Range("B8:B24").Copy ' je copie la plage de cellules, y inclure signatuer si besoin
email.display ' j'affiche le mail
Application.Wait (Now + TimeValue("0:00:01")) ' j'attends une seconde
SendKeys "^v", True ' j'envoie la commande Ctrl+V (coller)
Application.CutCopyMode = False

Il ne reste plus qu'à envoyer ... cette solution permet de mettre ton QRcode dans le corps du mail.

Steelson, un GRAND MERCI !!!

J'ai réussi avec la méthode du PDF.

Par contre impossible avec sendkeys...

Si cela te convient avec le pdf, ok.

Mais si tu souhaites mettre le QRcode dans le texte du mail, on peut poursuivre la mise au point.

Il faut sans doute sélectionner toute une colonne pour copier, c-a-d Range("A/A")

Bonjour Steelson,

Oui on peut toujours essayer de mettre le code dans le corps du mail.

En mettant juste Range(A/A) dans la macro tu penses que cela devrait fonctionner ?

Merci,

Julien

Il faut essayer, fais plsueiurs essais, tout dépend "où" se situe le QRcode.

Avec B8:B24, cela fonctionne chez moi, fais plusieurs essais ...

Bonjour Steelson,

J'ai réessayé et en fait cela fonctionne, je ne sais pas ce que j'ai fait la dernière fois...

Merci beaucoup pour ton aide !!

Julien

Steelson,

Tu peux encore m'éclairer peut être. Est ce qu'il est possible de configurer la macro pour que l'envoi de mail auto se fasse pas forcément par Outlook, mais par gmail, Hotmail etc selon ce qu'utilise l'utilisateur du fichier XLS ?

Merci,

Julien

Je ne sais pas faire ... repose un nouveau topic si besoin.