Ouvrir outlook et ecrire un message en format html

0/5 (9 avis)

Vue 18 282 fois - Téléchargée 681 fois

Télécharger le projet
Commenter

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
Télécharger le projet

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 75
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 75
27 mars 2007 à 16:31
utilises la couleur HTML de ton choix...

#FF0000 pour du rouge vif, par exemple
S'inscrire maintenant

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.

Du même auteur (nariel1)