Aide sur Macro Excel à Outlook

[slideroner]

Bonjour, j’aurais besoin d’aide. Je suis novice en la matière et j’ai de la peine à modifier ce code.

J’ai une macro pour envoyer un email depuis Excel sur Outlook

Mes questions sont les suivantes.

1) Peut-on modifier ce code pour que l’email parte sur Outlook Express et non sur Outlook. Si oui comment ?

2) J’aimerais ajouter une image en background, Est-ce possible. Si oui comment ?

3) J'aimerais pouvoir changer la police et pouvoir mettre en gras. Est-ce possible. Si comment ?

Si quelqu'un pourrais m’aider ça serais super sympa. Je vous remercie d’avance pour l’intérêt que vous porterez à ce sujet.
-----------------------------------------

Sub SendMail_Outlook()

'Avant de lancer cette macro, Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"

Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
'la variable mytx est de(A7:G24)
For lig = 7 To 24
For col = 1 To 7
mytx = mytx & Sheets("Feuil2").Cells(lig, col) & " "

Next

mytx = mytx & vbCr

Next

Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = [Feuil1!B3] 'en B3 l'adresse destinataire
.Subject = [Feuil1!B4] 'ici le sujet
.Body = mytx 'ici le texte de A7:G24
.Display '.Display Send
End With
End Sub

 

[KangOl]

balise

 [:jofusion]

 

[inoujk]

voila, donc toujours avec la library d'outlook definie dans les références . ca evoie un mail sous un format html, donc le plus simple est d'ecrire son code html et de le copier dans le HTMLBody pour etre sur du code HTML..
tout comme une page html, on peu mettre du gras, de l'italique, definir la taille de police, mettre une image en arriere plan, etc, ... je pense que t'y etait pas loin, juste le bodyformat a mettre en olFormatHTML et t'etais bon !
[cpp]Sub test()
Set a = Outlook.CreateItem(olMailItem)
With a
.To = "inoujk@free.fr"
.Subject = "test de prog"
.BodyFormat = olFormatHTML
.HTMLBody = "le texte en html avec du <b>gras</b> de <i>l'italique</i> etc..."
.Send
End With
End Sub[/cpp]

 

[slideroner]

Merci de votre aide précieuse, c’est cool.

Est-que vous sauriez comment faire pour adapter ce code pour Outlook Express.

Merci d’avance.

Bonne soirée

 

[benoit_beno]

boujour slideroner,

j'ai le meme probleme que tu d'ecris dans ce forum...je cherche absolument à transférer le contenu obtenu par une form, dans un message outlook express et en format html, afin qu'au moins la police puisse etre modifiable...

As tu trouver reponse à tes questions???ca fait des jours que je cherche sur le net....

merci d'avance....

Benoit

 

[zeb]

( C'était il y a presque 11 mois ! )