VBA envoyer objet "embedded" par mail

[apnart]

Bonjour,

Je n'ai pas trouvé réponse à ma question, alors voilà :

J'ai un excel qui envoi des mails à différents destinataires en fonction de plusieurs critère. ça c'est bon.

Ces mails doivent comporter des pdf (de plusieurs pages) en pièces jointes.

Pour que la diffusion soit plus simple, je voudrais inclure les pdf dans mon excel.

j'ai donc fait "insertion - objet - ..." et ça marche. Je me retrouve avec un truc du genre "=EMBED("AcroExch.pdfxml.1";"")" dans ma feuille. J'ai même nommé cet objet "PDF1".

Je voudrais pouvoir attacher ce pdf (et d'autres) à mon mail, avec un code du genre : ".attachments.Add", mais je ne trouve pas

J'ai réussi à attacher un fichier externe, mais c'est pas ce que je cherche (.attachments.Add strChemin & strFichier)...

Si vous avez des idées pour me dépatouiller, ça serait super cool.

Merci d'avance,
A+
Bruno.

 

[apnart]

Re : VBA envoyer objet "embedded" par mail

Pas d'idées ?

 

[DoubleZero]

Re : VBA envoyer objet "embedded" par mail

Bonjour, apnart, le Forum,

Peut-être avec une adaptation de cette macro :

Sub envoi_PJ()
'code de BOISGONTIER
    ChDir ActiveWorkbook.Path
    répertoireAppli = ActiveWorkbook.Path   ' Penser à Outils/Références Outlook
    '---  Envoi par mail
    Dim olapp As Outlook.Application
    Sheets("destinataires").Select
    [A11].Select
    Do While Not IsEmpty(ActiveCell)
      MsgTo = MsgTo & ActiveCell & ";"
      ActiveCell.Offset(1, 0).Select
    Loop
    Dim msg As MailItem
    Set olapp = New Outlook.Application
    Set msg = olapp.CreateItem(olMailItem)
    msg.To = MsgTo
    msg.Subject = [A2]
    msg.Body = [A5] & Chr(13) & Chr(13) & [A8].Value & Chr(13) & Chr(13)
    '-- pj
    [C8].Select
    Do While Not IsEmpty(ActiveCell)
      nf = ActiveWorkbook.Path & "\" & ActiveCell.Value
      msg.Attachments.Add Source:=nf  '<---------------------------------------------
      ActiveCell.Offset(1, 0).Select
    Loop
    msg.Send
End Sub

Bon courage et à bientôt

 

[apnart]

Re : VBA envoyer objet "embedded" par mail

Bonjour zérozéro,

Merci pour ta réponse

Mais j'ai déjà essayé ce type de manip et ça marche pas

D'autres idées ?