[VB6]Chaines en gras dans le corps d'un mail

**Safaritn** · 02/02/2006, 11h39

Bonjour à toutes et à tous,

J'écris une application en VB 6 qui permet d'envoyer un mail. Dans le corps de ce dernier, j'aime bien envoyer des chaines de caractères en gras. Comment faire ?

Merci d'avance

**jmfmarques** · 02/02/2006, 11h54

En utilisant, par exemple, la propriété Bold de l'objet Font (voir aide en ligne, avec exemples et tout...)

**Safaritn** · 02/02/2006, 11h57

Merci de votre réponse

Mais, dans une même chaine de caractères, je veux avoir des caractères en gras et d'autres normaux. Par exemple:

"Ceci est un exemple de corps en gras et normal"

Merci encore

**jmfmarques** · 02/02/2006, 12h00

Ou est ton problème ? Même méthode... en concaténant ensuite...

**Safaritn** · 02/02/2006, 12h04

Oui, tu as raison, mais le problème c'est que la chaine concaténée sera très longue. Il n'y a pas un autre moyen, en utilisant les API par exemple ?

**jmfmarques** · 02/02/2006, 12h06

L'API viendrait selon toi règler le problème de la longueur de ta chaîne ??

Je ne comprends pas... Une concaténation fait parfaitement l'affaire.
Si ta chaîne est vraiment très longue, fais plusieurs chaînes.

Tu peux peut-être t'intéresser également à l'utilisation d'un RichTextBox...(voir aide en ligne là aussi)

**Safaritn** · 02/02/2006, 12h37

J'utilise un objet Mail de ce type:

Dim olapp As New Outlook.Application
Dim olMail As Outlook.MailItem

Donc, je ne peux pas utiliser l'objet Font. En plus, la chaine dans le body est directement affectée par une variable de type String qui contient notre chaine de caractères. C'es pourquoi je cherche une autre avec API

**SilkyRoad** · 02/02/2006, 12h54

bonjour

j'espere que cet exemple pourra t'aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub CreationMail()
Dim OlApp As New Outlook.Application
Dim OlItem As Outlook.MailItem
Dim strHTML As String
 
' necessite d'activer la reference microsoft outlook 10.0 object library
Set OlItem = OlApp.CreateItem(olMailItem)
 
strHTML = ""
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "Bonjour , <BR><BR><B>ci joint l'exemple demandé</B>"
strHTML = strHTML & "<BR><BR>Cordialement<BR>" & Application.UserName
strHTML = strHTML & "</BODY>"
strHTML = strHTML & ""
 
With OlItem
.To = "forum@developpez.fr"
.Subject = "Le titre du message"
.HTMLBody = strHTML
.Display
'.Save
'.send
End With
 
Set OlItem = Nothing
Set OlApp = Nothing
End Sub

bon apres midi
michel

**SfJ5Rpw8** · 02/02/2006, 13h03

oups ...Silky m'a adancé ... pour ton probléme tu peu faire plus simple..:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Test()
 Dim m As MailItem
 
 Set m = CreateItem(olMailItem)
 m.HTMLBody = "Ceci est un exemple de corps en <B>gras</B> et normal"
 m.Display
End Sub

à priori cela marche ... sans mettre les entêtes...