Ouvrir outlook et ecrire un message en format html

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

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)