Envoi d'un classeur + fichier Word par Outlook

[ercita]

Salut à tous,
Voici je souhaite envoyer le classeur actif ainsi qu'un fichier WORD ouvert vers un destinataire.
Help
Merci
Eric

 

[MichelXld]

bonsoir

tu peux essayer cette macro

Sub envoiMessage_piecesAttachees()
Dim OlApp As Object
Dim OlItem As Object

Set OlApp = CreateObject('Outlook.Application')
Set OlItem = OlApp.CreateItem(olMailItem)

With OlItem
.To = 'nom@domaine.fr'
.Subject = 'le sujet ...'
.Body = 'Le corps du message ...'
'le classeur Excel est supposé deja sauvegardé
.Attachments.Add ActiveWorkbook.FullName
.Attachments.Add 'C:\\\\\\\\Documents and Settings\\\\\\\\michel\\\\\\\\dossier\\\\\\\\leDocument.doc'
.Save
.Send
End With

Set OlApp = Nothing
End Sub



bonne soiree
MichelXld

 

[ericTa]

Merci,
ça marche super bien MERCI, seulement j'ai un PB car mon fichier Word comporte des liens SQL. Pour que mon mail fonctionne il faudrait que je transforme mon fichier Word en PDF avant de l'envoyer...
As-tu une solution?
MErci Eric

 

[MichelXld]

bonsoir Eric

Tu as déja un logiciel de conversion installé sur ton poste ?

Fait des recherches sur le forum : tu trouveras des infos à ce sujet


ainsi que dans les archives :

https://www.excel-downloads.com/search/



ce lien pourra peut etre t'aider également

http://sebsauvage.net/pdf/



bonne soirée
MichelXld