Discussion :

[etorria]

Bonjour,

Quotidiennement je remplis un tableau Excel que je converti ensuite au format PDF avec PDFCreator puis j'envoi à l'aide d'un code VBA via Outlook.
L'envoi se passe parfaitement mais lorsque je lis le message aucun texte n'apparaît dans le corps du message.
Pourriez vous m'aider à trouver le bogue ?

Merci à vous !

Ci-joint le fichier :

Etorria

[Godzestla]

Salut,

il y a une simple faute de frappe dans ton code :

Code :

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

1
2
myItem.HTMLBody = strlHtml

pour éviter cela, code

Code :

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

1
2
 
Option Explicit

en tout début de module et alors tu calleras à la compil pour toute variable non définie.

Fastidieux ? Oui mais tellement plus efficace et payant !!!

[etorria]

Merci à toi.
Cependant après correction, un message d'erreur de compilation s'affiche s'arrêtant sur cette ligne : Set myItem = ol.CreateItem(olMailItem)

Une idée ?

A+
Etorria

[Godzestla]

je n'ai pas outlook (mais lotus notes) alors je ne sais pas tester.

Mais je suppose qu'l ne connait pas OlmailItem.

Tu devrais aussi regarder dans la faq (a mail).

je viens e regarder, sans rien connaitre à ton sujet, et j'ai trouve du code qui confirme ce que je pense. (Il te manque le dim de MyItem (comme OlItem ci-dessous).

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
Sub CreationMailEtLienHypertexte()
    Dim OlApp As Outlook.Application
    Dim OlItem As Outlook.MailItem
    'Nécessite d'activer la référence "Microsoft Outlook xx.x Object Library"
    
    Set OlApp = New Outlook.Application
    Set OlItem = OlApp.CreateItem(olMailItem)
    
    With OlItem
        .To = "NomPrenom@mail.fr"
        .Subject = "Le titre du message"
        .Body = "Découvrez Microsoft Office sur le site Developpez" & _
            vbLf & "http://www.developpez.com" & vbLf & vbLf & _
            "Cordialement" & vbLf & "mailto:emetteur@mail.fr"
        .Display
        .Save
        .Send
    End With
    
    Set OlItem = Nothing
    Set OlApp = Nothing
End Sub

Et oui tout définir, mais au moins on comprends.
Merci de penser à la . et au help de VBA. On y apprends plein de choses.

[Oliv-]

Salut à tous,

DAns ton fichier Excel tu n'as pas ajouté la référence à OUTLOOK de ce fait tu ne peux pas utiliser des constantes propres à OUTLOOK (olMailItem )

Pour ta question dans le code sur le nom du pdf tu dois le récupérer dans ta procédure de création du PDF

Code :

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

.cOption("AutosaveFilename") = LeNom

Enfin cete façon de faire pour envoyer un MAIL doit te générer une alerte de sécurité, pour l'éviter tu peux utiliser CDO pour l'envoi.
http://www.developpez.net/forums/sho...&highlight=cdo

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
29
30
31
Option Explicit
 
Sub Envoi()
Const olMailItem = 0
 
Dim ol As Object, myItem As Object
Dim strHtml As String
 
strHtml = "Bonjour , <BR>"
strHtml = strHtml & "<BR><font size=6mm>" & "Vous trouverez ci-joint le tableau</font></B>"
strHtml = strHtml & "<BR><BR><BR>" & "<font color=red>Cordialement</font>" & "<BR>"
strHtml = strHtml & Environ("himself")
strHtml = strHtml & "xxx"
 
Set ol = CreateObject("Outlook.application")
Set myItem = ol.CreateItem(olMailItem)
 
myItem.To = "cmoi@free.fr"
myItem.Subject = "Tableau en date du xx/xx/2008" 'Comment insérer ici automatiquement la date du fichier, en sachant que l'envoi se fait quotidiennement avec une date différente ?
myItem.HTMLBody = strHtml
myItem.Attachments.Add ("c:\pdf\Tableau du xx/xx/2008.pdf")
          'myItem.Attachments.Add ActiveWorkbook.FullName
myItem.display
 
Set ol = Nothing
 
End Sub
 
Private Sub CommandButton1_Click()
Call Envoi
End Sub

[etorria]

Bonjour et merci !
Je vais tester, je reviendrai le cas échéant !
Bonne après-midi !
Etorria