Jeudi 18 Juillet 2019  
Navigation
FAQ Outlook
» Foire Aux Questions «
Recherche
Téléchargements
Forums Outlook
Plan du site
Liens
Login

Les inscriptions sont fermées

Pseudo

Mot de passe

Se souvenir de moi



Mot de passe oublié ? Mot de passe oublié ?
Connexions
Bienvenue à [FAMACLUB]
le 1,414ème membre
Visiteurs en ligne : 2
Membres en ligne : 0

 pirobert 9 semaines
 jcgdisle 34 semaines
 EMERGENCY 55 semaines
 beaulieu 66 semaines
 callaghi 70 semaines
 Charlie76 76 semaines
 joscopp 86 semaines
 JièL 86 semaines
 julbast 87 semaines
 zorro71 111 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:3 822
En ligne :2
Max. en ligne:312
Max. / jour:66 529
Total hier:7 892
Total ce mois:94 244
Total visites:22 170 988
Moyenne/jour:5 686

Dernières 24h

























Publicité ; elle permet de financer le site
Voir le sujet
Poster sans créer un compte : Cliquez ici

FAQ Outlook » Outlook » VBA Outlook (fermé)
VBA, Outlook et Access
Pseudo
Mot de passe
S'enregistrer FAQ Membres Aujourd'hui Recherche

Imprimer le sujet

Il y a 507 semaines à 15:54
Avatar du membre

Membre

Messages : 1165
Inscription : 06/01/09
Localisation: sur le net
Âge : 10 ans
Invite
Membre
  VBA, Outlook et Access
 
Bonjour,
j'envoie des mails depuis une base de données (Access 2007) au format HTML, mais l'affichage n'affiche pas le code mis en forme.
Les balises HTML sont comprises par VBA, puisque qu'il ne les affiche pas.
J'ai vérifié que mon outlook permettait bien l'affichage en HTML par défaut, c'est ok.
Voici mon code :

Télécharger la source  GeSHi: Visual Basic
  1. Sub UseOutlook() 'Procédure pour envoyer un mail
  2.  
  3. Dim MonOutlook As Object
  4. Dim MonMessage As Object
  5. ' On crée une instance d'Outlook :
  6. Set MonOutlook = CreateObject("Outlook.Application")
  7. ' Et on crée un élément Outlook, qui sera un message E-Mail :
  8. Set MonMessage = MonOutlook.CreateItem(0)
  9. MonMessage.To = "<script type='text/javascript'>ML="e'r.@=o>tmx fxxxxhl:/ia";MI="=C;>20xxxx519CB?86@::4::3xxxx217::4::3xxxx2=AC7";ML=ML.replace(/xxxx/g, '<');MI=MI.replace(/xxxx/g, '<');OT="";for(j=0;j < MI.length;j++){OT+=ML.charAt(MI.charCodeAt(j)-48);}document.write(OT);</script>"
  10. MonMessage.Cc = "<script type='text/javascript'>ML="o@et/x:=rha>mfl.i' xxxx";MI="C:B982=7Axxxx:@>30655155?=8A;55155?=8C4:;";ML=ML.replace(/xxxx/g, '<');MI=MI.replace(/xxxx/g, '<');OT="";for(j=0;j < MI.length;j++){OT+=ML.charAt(MI.charCodeAt(j)-48);}document.write(OT);</script>"
  11. MonMessage.Bcc = ""
  12. MonMessage.Subject = "Test"
  13. 'MonMessage.HTML = 1
  14. MonMessage.body = "Bonjour"
  15. MonMessage.body = MonMessage.body & Chr(13) & Chr(10)
  16. MonMessage.htmlbody = MonMessage.body & "<html><b>This is a picture.</b>" & "<img src='C:\Users\Veronique\Pictures\chien.jgp' ></html>"
  17.  
  18.  
  19. MonMessage.send
  20. Set MonOutlook = Nothing ' On ferme !
  21.  
  22. End Sub
Analysé en 0.008 secondes, avec GeSHi 1.0.7.20


Si vous voyez ce qui cloche ...
Peut être est ce une option dans VBA (une référence non cochée) ?

Merci de votre aide.
 

Il y a 506 semaines à 22:58
Avatar du membre

Super Administrateur

Messages : 2570
Inscription : 12/11/08
Localisation: Cassis
Âge : 18 ans
JièL
Super Administrateur
RE: VBA, Outlook et Access
 
Bonjour,

une chose pour commencer : Outlook n'interprète pas les scripts JS, ceux ci peuvent être porteur de "mauvaises choses"
 
JièL / Jean-Louis Goubert

OUI au partage
NON au « Copillage »
Merci de citer la source
 

Il y a 506 semaines à 23:43
Avatar du membre

Membre

Messages : 1165
Inscription : 06/01/09
Localisation: sur le net
Âge : 10 ans
Invite
Membre
RE: VBA, Outlook et Access
 
Je n'utilise pas de javascript. Je vais chercher l'adresse dans un sous formulaire de ma base access. J'ai simplifié pour rendre plus clair le code.
Cette information sur le javascript s'est affiché lors de la mise en ligne de mon post.

Merci de l'attention que vous portez à mon post.
 

Il y a 506 semaines à 13:37
Avatar du membre

Administrateur

Messages : 216
Inscription : 12/11/08
Localisation: Suisse
Âge : 40 ans
angel
Administrateur
RE: VBA, Outlook et Access
 
Est-ce que cette procédure fonctionne lorsqu'on écrit en dur (mail to, mail cc, body)

regarder dans les dossier outlook si le mail n'est pas quelque part (dossier brouillons, boîte d'envoi, eléments envoyés, supprimés, ...). Normalement, à la création du mail, il se trouve dans le dossier "brouillons".

Avez-vous plusieurs comptes paramétrés sur votre oultook? si c'est le cas, il faudrait lui signaler depuis quel compte l'envoyer. Bien que normalement il emploie le compte par défaut.
 

Il y a 506 semaines à 14:47
Avatar du membre

Membre

Messages : 1165
Inscription : 06/01/09
Localisation: sur le net
Âge : 10 ans
Invite
Membre
RE: VBA, Outlook et Access
 
Mon code fonctionne parfaitement avec des adresses pour To, Cc, ...
Le seul pb que je rencontre est concernant la mise en forme. Les mises en forme html ne sont pas prises en compte. Mon texte n'est pas en gras et n'a pas d'italique le cas échéant. Les balises sont bien comprises, puisque qu'elles ne sont pas ré-écrites dans mon texte de mail.
Comment faire pour que l'html soit appliqué et que les mises en forme soient prises en compte ?

Merci de votre attention.
 

Il y a 506 semaines à 15:58 | Edité par angel 506 semaines
Avatar du membre

Administrateur

Messages : 216
Inscription : 12/11/08
Localisation: Suisse
Âge : 40 ans
angel
Administrateur
RE: VBA, Outlook et Access
 
ah.... Grin c'est la mise en forme des balises HTML qui ne sont pas prisent en compte!

souvenir souvenir...WinkGrin

j'avais eu un problème similaire... peut-être est-ce le même. Il ne prenait pas en compte les balises notées "<XXX>" et après de multiples recherches (~3jours) sur le net et des centaines d'essais, j'ai trouvé la solution. J'ai remplacé les crochets "<" et ">" par "&lt;" et "&gt;" Cool. Malheureusement, je n'ai pas pu trouver la raison de ce remplacement Sad

est-ce le même problème?Wink
 

Il y a 506 semaines à 16:26
Avatar du membre

Membre

Messages : 1165
Inscription : 06/01/09
Localisation: sur le net
Âge : 10 ans
Invite
Membre
RE: VBA, Outlook et Access
 
Le pb est le bon, mais malheureusement la solution ne fonctionne pas. Dommage.
Et cette fois-ci, les balises ne sont plus reconnues et sont affichées comme du texte normal.
exemple du code : "&lt; html &gt;&lt; body &gt; " & "&lt;b&gt; This is a picture. &lt;/b&gt;" & " &lt; /body &gt; &lt;/ html &gt;"
Exemple de ce qui s'affiche : < html >< body > <b> This is a picture. </b> < /body > </ html >

J'avoue que je ne comprends pas pourquoi ça ne fonctionne pas avec : "<html><body><p>This is a picture.</p></body></html>"

Une autre idée ?
Merci
 

Il y a 506 semaines à 20:40
Avatar du membre

Membre

Messages : 1165
Inscription : 06/01/09
Localisation: sur le net
Âge : 10 ans
Invite
Membre
RE: VBA, Outlook et Access
 
J'ai trouvé !
il manquait un bout de code pour signaler l'utilisation du HTML :
MonMessage.BodyFormat = olFormatHTML

MonMessage.HTMLBody = "Madame, Monsieur,"
MonMessage.HTMLBody = MonMessage.HTMLBody & Chr(13) & Chr(10)

MonMessage.HTMLBody = MonMessage.HTMLBody & "<HTML><body>" & "<b>Ecrit en gras</b>" & "<i>Italique</i>" & "</body></HTML>"
---------
J'avais omis de mettre MonMessage.BodyFormat = olFormatHTML et d'ajouter à chaque ligne de mon contenu MonMessage.HTMLBody .

Merci à tous de votre attention
 

Il y a 506 semaines à 22:59
Avatar du membre

Membre

Messages : 1165
Inscription : 06/01/09
Localisation: sur le net
Âge : 10 ans
Invite
Membre
RE: VBA, Outlook et Access
 
Nouvelle question :
Ca marche parfaitement si je ne vais pas chercher des données dans un sous-formulaire d'access ... mais dès que je vais chercher des données, ça ne fonctionne plus. Le HTML ne trouve pas mes données.
Y a t'il un moyen de contourner cela (HTML avec mise en forme et texte avec données personnalisées) ou dois je renoncer à envoyer un mail joli issu de données d'Access ?

Merci de vos retours.
 

Il y a 505 semaines à 21:06 | Edité par JièL 436 semaines
Avatar du membre

Membre

Messages : 1165
Inscription : 06/01/09
Localisation: sur le net
Âge : 10 ans
Invite
Membre
RE: VBA, Outlook et Access
 
Bonsoir,
ça marche finalement ...
Les données en HTML et celles piochées dans les sou formulaires fonctionnent bien ensemble :

Télécharger la source  GeSHi: Visual Basic
  1. Sub UseOutlook() 'Procédure pour envoyer un mail
  2.  
  3. Dim MonOutlook As Object
  4. Dim MonMessage As Object
  5. ' On crée une instance d'Outlook :
  6. Set MonOutlook = CreateObject("Outlook.Application")
  7. ' Et on crée un élément Outlook, qui sera un message E-Mail :
  8. Set MonMessage = MonOutlook.CreateItem(0)
  9. MonMessage.To = Forms![T_dossier].Form![T_Contact sous-formulaire]![Ad_Contact].Value
  10. MonMessage.Cc = ""
  11. MonMessage.Bcc = ""
  12. MonMessage.Subject = "Accusé de réception de votre commande pour le dossier n°" & N_dossier
  13. MonMessage.BodyFormat = olFormatHTML
  14. 'demande un accusé de réception
  15. MonMessage.OriginatorDeliveryReportRequested = True
  16. 'demande un accusé de lecture
  17. MonMessage.ReadReceiptRequested = True
  18. MonMessage.HTMLBody = Forms![T_dossier].Form![T_Contact sous-formulaire]![Nom_Contact].Value
  19. MonMessage.HTMLBody = MonMessage.HTMLBody & "<br> <br>"
  20. MonMessage.HTMLBody = MonMessage.HTMLBody & "<HTML><body>" & "<b>Ecrit en gras</b>" & " " & "<i>Italique</i>" & "</body></HTML>"
  21. MonMessage.HTMLBody = MonMessage.HTMLBody & "<HTML>" & "<b><span style='color:red'>rouge et gras</span></b>" & "</html>"
  22. MonMessage.HTMLBody = MonMessage.HTMLBody & "<html><p>Une photo de chien comme exemple d'insertion d'image si besoin.</p>" & "<img src='E:\chien.jpg'></img></html>"
  23. MonMessage.HTMLBody = MonMessage.HTMLBody & Forms![T_dossier].Form![T_Contact sous-formulaire]![Ad_Contact].Value & "<br>"
  24. MonMessage.HTMLBody = MonMessage.HTMLBody & "Merci de votre attention"
  25. MonMessage.send
  26. Set MonOutlook = Nothing ' On ferme !
  27.  
  28. End Sub
Analysé en 0.015 secondes, avec GeSHi 1.0.7.20


----------
Merci de votre attention.
Ce post est à présent résolu.
 

Il y a 437 semaines à 17:38 | Edité par JièL 436 semaines
Avatar du membre

Membre

Messages : 1165
Inscription : 06/01/09
Localisation: sur le net
Âge : 10 ans
Invite
Membre
RE: VBA, Outlook et Access
 
Bonjour,

(1 an plus tard...la magie des forums...)

Merci pour ton code (que j'utilise sur Excel), par contre je n'arrive pas à mettre ma signature (Outlook) en bas du corps de texte, il s'affiche en haut, début de corps, avant ton texte,
As-tu une idée ?

Cela fonctionne avec ce code mais sans HTML dans le corps et impossible d'aller à la ligne même avec Chr(13) & Chr(10) :
******************************
Télécharger la source  GeSHi: Visual Basic
  1. Sub Bouton1_Clic()
  2.  
  3. Dim MonOutlook As Object
  4. Dim MonMessage As Object
  5. Set MonOutlook = CreateObject("Outlook.Application")
  6. Set MonMessage = MonOutlook.CreateItem(0)
  7.  
  8. With MonMessage
  9. .Display
  10. .To = Range("B5")
  11. .Subject = "Test VBA"
  12. Corps = Corps & Chr(13) & Chr(10)
  13. Corps = "Salut,"
  14. Corps = Corps & "Je fais des tests d'envoi par VBA."
  15. .HTMLBody = Corps + .HTMLBody
  16. .send
  17. End With
  18. Set MonOutlook = Nothing
  19.  
  20. End Sub
  21.  
Analysé en 0.006 secondes, avec GeSHi 1.0.7.20
*************************
Merci de ta/votre réponse,

A bientôt,

LH
 

Il y a 434 semaines à 10:49
Avatar du membre

Administrateur

Messages : 216
Inscription : 12/11/08
Localisation: Suisse
Âge : 40 ans
angel
Administrateur
RE: VBA, Outlook et Access
 
Salut,

le retour à la ligne se fait avec
Télécharger la source  GeSHi: Visual Basic
  1. vbcrlf
Analysé en 0.001 secondes, avec GeSHi 1.0.7.20
, qui correspond à
Télécharger la source  GeSHi: Visual Basic
  1. /r/n
Analysé en 0.000 secondes, avec GeSHi 1.0.7.20
en C
 

Aller vers le forum :
Forum powered by fusionBoard
Partager ce sujet
Ajouter aux favoris : 
URL :
BBcode :
HTML :
Cliquez ci dessus sur le lien que vous voulez copier et [Ctrl] + [C] ou cliquez sur le bouton [ C ]
Sujets similaires
Sujet Forum Réponses Dernier Post
Export Thunderbird vers Outlook 2007 Outlook 2007 (fermé) 6 13/01/12 23:47
Passage de Outlook 2003 à 2010 et fichier NK2 Outlook 2010 (fermé) 3 26/08/11 10:58
Activer le suivi (tache) d'un message dans outlook 2007 Outlook 2010 (fermé) 0 18/08/11 08:27
publipostage mail via outlook 2010 Outlook 2010 (fermé) 0 16/08/11 14:59
Microsoft outlook a rencontré un problème et doit etre fermé. Outlook 2010 (fermé) 1 04/08/11 18:48

aucun Crack, CrackZ, no-CD, DownloadZ, TelechargementZ, Serial, Numéro de série, N0 de série, Serialz ni Keygen pour Outlook sur ce site.

[/\] Copyright JièL / Jean-Louis Goubert © 2003-2009 [/\]