Ouvrir outlook et ecrire un message en format html

Soyez le premier à donner votre avis sur cette source.

Vue 17 382 fois - Téléchargée 644 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

Messages postés
443
Date d'inscription
mardi 27 mars 2007
Statut
Membre
Dernière intervention
1 mars 2011
2
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.
Messages postés
55
Date d'inscription
mardi 21 mai 2002
Statut
Membre
Dernière intervention
6 mai 2009

merci RenField

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

Nariel
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
66
referres toi a des tutos sur l'HTML

Texte souligné

b => gras
i => italique, etc
Messages postés
443
Date d'inscription
mardi 27 mars 2007
Statut
Membre
Dernière intervention
1 mars 2011
2
Merci Renfield
Sans abuser tu n'aurais pas une ID pour souligner des éléments de texte
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
66
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.