Ouvrir outlook et ecrire un message en format html

0/5 (9 avis)

Vue 18 011 fois - Téléchargée 661 fois

Description

petit code pour ouvrire un message predeterminer en format htlm et l'envoyer par la suite

N'oublier pas de rajouter la reference Microsoft outlook 9 object liberary


ajouter dans le form1 une textBox et un Bouton

Source / Exemple :


Private Sub Command1_Click()
Dim myolapp As Outlook.Application
Dim myitem As Outlook.MailItem
Dim str As String
Dim msn As VbMsgBoxResult

Set myolapp = CreateObject("Outlook.Application")
Set myitem = myolapp.CreateItem(olMailItem)
 
myitem.Subject = "Objet du mail"
Set myRecipients = myitem.Recipients
myRecipients.Add ("cnn@cnn.com")

str = "<body>"
str = str & "<p>Salut test mail</p>"
str = str & "<table border=1 width=100% bordercolor=#00FFFF>"
str = str & "  <tr>"
str = str & "    <td width= 50%  bgcolor= #C0C0C0 >BLABLA    </td>"
str = str & "    <td width=50% bgcolor=#C0C0C0>&zzzzzzzz</td>"
str = str & "  </tr>"
str = str & "   <tr>"
str = str & "    <td width=50%>STESTTSTST</td>"
str = str & "    <td width=50%><font color=#000080>AAAAA</font></td> "
str = str & "</tr>"
str = str & "</table>"
str = str & "<P>" & Text1 & "</p>"
str = str & "</body></html>"

myitem.HTMLBody = str

myitem.Display

 msm = MsgBox("Voulez vous envoyer ce message", vbInformation + vbYesNo)

If msn = vbYes Then
    sendMailMessage = "Ok"
Else
    myolapp.Application.Quit
End If

Set myitem = Nothing
Set myolapp = Nothing

End Sub

Codes Sources

A voir également

Ajouter un commentaire Commentaires
JM247L
Messages postés
443
Date d'inscription
mardi 27 mars 2007
Statut
Membre
Dernière intervention
1 mars 2011
2
28 mars 2007 à 10:04
Merci à vous.
En fait je ne suis pas encore très familiarisé avec ce type de langage mais je sens que grâce à vous je vais progresser.
nariel1
Messages postés
55
Date d'inscription
mardi 21 mai 2002
Statut
Membre
Dernière intervention
6 mai 2009

27 mars 2007 à 22:26
merci RenField

JM247L
tu peux utiliser n'importe qu'elle balise html pour designer ton mail

Nariel
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
27 mars 2007 à 17:56
referres toi a des tutos sur l'HTML

Texte souligné

b => gras
i => italique, etc
JM247L
Messages postés
443
Date d'inscription
mardi 27 mars 2007
Statut
Membre
Dernière intervention
1 mars 2011
2
27 mars 2007 à 16:41
Merci Renfield
Sans abuser tu n'aurais pas une ID pour souligner des éléments de texte
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
27 mars 2007 à 16:31
utilises la couleur HTML de ton choix...

#FF0000 pour du rouge vif, par exemple
Afficher les 9 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.