Ouvrir outlook et ecrire un message en format html

Soyez le premier à donner votre avis sur cette source.

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

Sirocooo
Messages postés
412
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
7 avril 2008
1
Peut-on se servir de outlook express à la place ?
Je n'ai pas Outlook
fanfanus
Messages postés
27
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
9 mars 2013

Heu moi j'y connais rien en prog, mais si yavait un ptit fichier exe pour installer tout ça serai bien :)

Sur outlook express de préference !!

si non c pas mal
cs_jabirou
Messages postés
8
Date d'inscription
samedi 23 octobre 2004
Statut
Membre
Dernière intervention
20 octobre 2006

comment faire pour que Outlook intègre les images ???
La création de la page HTML se passe bien, pas de problème, mais mes images ne sont pas jointe.

La solution que j'ai trouvée est de créer un fichier htm, puis de le diffuser en publipostage. Ce n'est pas des plus pratique.

Quelqu'un connaitrait-il une solution ?
JM247L
Messages postés
443
Date d'inscription
mardi 27 mars 2007
Statut
Membre
Dernière intervention
1 mars 2011
1
Dans le même ordre d'idée, est-il possible de souligner des éléments de texte dans le message ?
Une liste des codes couleurs serait la bienvenue, j'ai essayé avec RGB et les codes windows sans succés
Merci d'aider un petit nouveau
Renfield
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
60
utilises la couleur HTML de ton choix...

#FF0000 pour du rouge vif, par exemple

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.