Export d'un état par mail

[Aitone]

Bonjour,

J'aimerai savoir s'il est possible lors du lancement d'un état de l'envoyer dans une boite mail en .pdf et non de lancer l'impression.

Je fais des Accusé de Réception de Commandes et les commerciales les envoient par mail. Je voulais leur simplifier la tâche en leur faisant éviter, l'impression au format pdf puis de joindre le fichier dans un mail.

Merci de vos réponses...

Adrien

[kikidrome]

Avec la version cr XI, depuis le crystal viewer, on peut faire un export pdf... est-ce que çà répond à ton besoin ?

[Aitone]

Bonjour,

Merci pour ta réponse, mais elle ne me suffit pas vraiment.
En effet, je ne dispose que de CRX et ce que j'aimerai c'est l'envoyer directement par mail...

J'ai bien ça mais :

Code :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Private Sub Form_Load() 
 
Dim details AS Integer 
Dim debut AS Date 
Dim fin AS Date 
Dim destinatiare AS Variant 
 
'adresse du destinatire 
destinataire = "moi@moi.fr" 
 
 
'VARIABLES qui serviront de paramètre dans crystal 
fin = LastDayOfMonth(Now) & "/" & Month(Now) & "/" & Year(Now) 
debut = FirstDayOfMonth(Now) & "/" & Month(Now) & "/" & Year(Now) 
details = 1 
 
 
Dim appl AS New CRAXDRT.Application 
Dim rep AS New CRAXDRT.Report 
SET rep = appl.OpenReport("\\chemin\exemple.rpt", 1) 
 
 
WITH rep 
    'paramètres 
    .ParameterFields.GetItemByName("datedeb").AddCurrentValue debut 
    .ParameterFields.GetItemByName("datefin").AddCurrentValue fin 
    .ParameterFields.GetItemByName("details").AddCurrentValue details 
 
    'exporter dans exemple.pdf 
  ' .ExportOptions.DestinationType = crEDTDiskFilegtef 
    .ExportOptions.DestinationType = crEDTDiskFile 
    .ExportOptions.DiskFileName = "c:\exemple.pdf" 
    .ExportOptions.FormatType = crEFTPortableDocFormat 
 
    'envoie du mail 
    .ExportOptions.DestinationType = crEDTEMailMAPI 
    .ExportOptions.MailSubject = "etat crystal datant du "& Now 
    .ExportOptions.MailToList = destinataire 
 
    .Export False 
End WITH 
 
End 
 
End Sub

Je ne sais pas comment inclure du VB sur Crystal..
Je sais juste faire un état Crystal Reports.

Merci d'avance pour ta réponse

Adrien

[Machuet]

En ayant lu test différents mail, je pense que ta question est en rapport avec x3.

Dans ce cas il te suffit de paraméter suivant ta version de X3 une destination de type mail et à ce moment cela se fait automatiquement.

De plus tu peux faire un petit spécifique dans un point d'entré pour renseigner automatiquement l'adresse du destinataire et le corps de message.

@+
Machuet