Discussion :

[maejor]

Bonjour,

Je souhaite installer dans le corp du message outlook une feuille excel, mais pas en pièce jointe, mais selon l'action (envoyer vers en tant que destinataire), j'aimerai que la confirguration outlook (texte, couleur, logos, ...) reste identique à ma feuille excel.

J'arrive à programmer par VBA mon destinataire, mon sujet et le texte complémentaire. Mais impossible de reproduire en dessus du texte complémentaire la copie identique de la feuille excel.

Ma deuxième problématique, j'ai trouvé comment programmer le destinataire, faire une copie à un autre destinataire. et une copie cachée, mais je recherche comment programmer dans ma macro l'adresse de l'expéditeur qui n'est pas la bal personnelle par défaut mais celle d'un service.

Merci de votre aide, ce travail pour moi devient urgent

[SilkyRoad]

bonjour

ces liens pourront peut etre t'aider

http://outlook.developpez.com/faq/?p...VBA_Send_Range

http://excel.developpez.com/faq/?pag...geCellulesMail


bonne soirée
michel

[maejor]

Bonjour,

J'ai utilisé le code suivant et cela fonctionne bien, sauf la notion que j'ai ajouté .Item.From, je pensais pouvoir avoir en fixe l'expéditeur, car je ne souhaite pas me servir d'une bal personnelle, mais celle d'un service. Pouvez-vous m'aider à finaliser le code ? Pour le reste c'est Ok
Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 Sub envoiPlageCellules_Excel2002()
ActiveSheet.Range("A1:B5").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
 
With ActiveSheet.MailEnvelope
    .Introduction = "bonjour , ci joint les données ..."
    .Item.To = "destinataire@dvp.fr"
    .Item.From = "..@..."
    .Item.Subject = "le sujet"
    .Item.Send
End With
End Sub