Envoi PJ ciblée par lien hypertexte

[cottages]

Bonjour,

Je voudrais envoyer un mail dont la pièce jointe serait ciblée par un lien hypertexte, puis attachée comme pièce jointe. Le lien lui-même est inclus dans le corps du body. Je compte utiliser Outlook.
Merci pour votre aide

 

[Yaloo]

Re : Envoi PJ ciblée par lien hypertexte

Bonsoir cottages et bienvenu sur XLD, le forum,

Vois avec cette macro, ça devrait te dépanner :

Option Explicit
Sub Envoyer()
Dim OutApp As Object
Dim OutMail As Object
Dim Fichier$
  Fichier = Range("A1").Hyperlinks(1).Address 'A adapter
  Set OutApp = CreateObject("Outlook.Application")
  OutApp.Session.Logon
  Set OutMail = OutApp.CreateItem(0)
    With OutMail
      .To = "ton adresse mail" 'A adapter
      .Attachments.Add Fichier
      .Display      'Voir le message
      '.Send        'Envoi le message
    End With
  Set OutMail = Nothing
  Set OutApp = Nothing
End Sub

A te relire

Martial

 

[cottages]

Re : Envoi PJ ciblée par lien hypertexte

Merci, Martial pour ta réponse rapide!

J'ai copié quelques éléments de ta macro; je crois que je vais pouvoir m'en sortir avec ça.
Encore merci et bonne journée.