begin process at 2012 05 27 19:32:48
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Trucs & Astuces

 > OUVRIR OUTLOOK ET ECRIRE UN MESSAGE EN FORMAT HTML

OUVRIR OUTLOOK ET ECRIRE UN MESSAGE EN FORMAT HTML


 Information sur la source

Note :
9 / 10 - par 1 personne
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Trucs & Astuces Niveau :Débutant Date de création :12/06/2002 Date de mise à jour :12/06/2002 15:51:06 Vu / téléchargé :14 479 / 544
Auteur : nariel1

Ecrire un message privé
Commentaire sur cette source (9)
Ajouter un commentaire et/ou une note

 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

  • 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 
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


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source .NET (Dotnet) RENAMEFILE
Source avec Zip W2K SHUTDOWN
Source avec Zip CREER UN LETTRE TYPE WORD DEPUIS VB
Source avec Zip OUVRIR WORD
Toutes les sources de nariel1

 Sources de la même categorie

Source avec Zip Source avec une capture OPTIONS PENDANT LE DÉBOGAGE par avictatum
Source avec Zip Source avec une capture Source .NET (Dotnet) TROUVER UN CONTROLE "ACTIF" DANS UN FORM par didierdeco91
Source avec Zip Source avec une capture RESISTANCES ÉQUIVALENTES par besqueut
Source avec Zip Source avec une capture Source .NET (Dotnet) JACALENDAR par raffika
Source avec Zip Source .NET (Dotnet) EXPORTER LES IMAGES DE WORD ET D' EXCEL par Le Pivert
Toutes les sources de la catégorie Trucs & Astuces

Commentaires et avis

Commentaire de Sirocooo le 12/06/2002 17:33:29

Peut-on se servir de outlook express à la place ?
Je n'ai pas Outlook

Commentaire de fanfanus le 19/06/2005 16:48:17

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

Commentaire de jabirou le 08/03/2006 15:06:53

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 ?

Commentaire de JM247L le 27/03/2007 16:21:16

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

Commentaire de Renfield le 27/03/2007 16:31:05 administrateur CS

<font color=#000080>

utilises la couleur HTML de ton choix...

#FF0000 pour du rouge vif, par exemple

Commentaire de JM247L le 27/03/2007 16:41:36

Merci Renfield
Sans abuser tu n'aurais pas une ID pour souligner des éléments de texte

Commentaire de Renfield le 27/03/2007 17:56:18 administrateur CS

referres toi a des tutos sur l'HTML

<u>Texte souligné</u>

b => gras
i => italique, etc

Commentaire de nariel1 le 27/03/2007 22:26:12

merci RenField

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

Nariel

Commentaire de JM247L le 28/03/2007 10:04:52

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.

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Samsung Galaxy Tab (GT-P1000) Tablet PC
Entre 699€ et 699€

Visiter le guide achat

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

A découvrir
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,640 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)