Discussion :

[tony020422]

Bonjour tout le monde ,

j'ai un souci qui apparemment pourrait concerner beaucoup de personnes!
j'aimerais crée un bouton sur un formulaire qui enregistre, imprime et envoi ce formulaire automatiquement par mail...les étapes d'enregistrement et d'impression sont au point ca tourne....

l'envoi de mail me bloque..sachant que l'expéditeur et le récepteur seront toujours le mêmes.

Précision: j'ai trouvé des codes sur le net qui marchent a priori mais utilisent des sendkeys...avec des serveurs de messagerie classique; ici la messagerie utilisée est office outlook web access...je ne sais pas comment faire !!

Merci par avance aux ames charitables qui auront pitié et qui m'aideront a programmer ca (car c'est super important !!)

Mille merci par avance!!

[Fvandermeulen]

Salut,
Peux tu mettre le code que tu as déjà et le code trouvé sur le net avec les sendkeys?
A+

[Fvandermeulen]

Re,
En ce qui concerne la macro, pas grand chose à dire, il y a plusieurs manière...celle ci utilise Outlook par défaut
J'avoue être un peu bloqué car je n'utilise pas Outlook web Access et je ne sais donc pas comment indiquer à VBA que c'est cette 'messagerie' qu'il faut utiliser.

Dans ton fichier, si tu vas dans Fichier\Envoyer vers\Mail avec pièce jointe (enfin je crois je suis en GB, j'ai bêtement traduit), quelle 'messagerie' utilise t'il?
(Une fois de plus la question peut paraître idiote mais ne travaillant qu'avec Outlook, je n'ai pas ce genre de soucis)
Si il passe par Outlook Web Acces (ce que j'ai du mal à concevoir) peut tu refaire la manipulation en déclanchant l'enregistreur de macro et copier le code?

Si entre temps quelqu'un sait comment indiquer à VBA qu'il doit utiliser OutlookWebAccess, tant mieux (même si j'imagine qu'il faudra jouer avec les URL)

A+

[tony020422]

Re,

alors avec l'enregistreur de macro ca ne donne qu'une seule ligne de commande malgré que je fasse l'ensemble des étapes..

Code :

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

Application.Dialogs(xlDialogSendMail).Show

sinon aprés avoir fait "fichier" "envoyer vers" avec "piece jointe"...
il apparait ca:

http://www.cijoint.fr/cjlink.php?fil...cijFM873bt.png

bref je suis un peu perdu la!

aurais tu une idée de comment changer la messagerie par défaut?

autre chose:

hier j'ai fais une simulation hier pour envoyer le mail et j'ai réalisé toutes les étapes de l'assistant (nom, mail, serveur entrant / sortant..) et ca n'a pas marché (j'ai mis n'importe quoi aussi c'était pour essayer!)

maintenant qd je mets ce script la (le mm qu'hier!)

Code :

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

1
2
3
4
5
Sub EnvoiMail()
  Workbooks("UnClasseur").SendMail Recipients:="tartem.pion@mimi.com", _
                          Subject:="Test envoi classeur", _
                          ReturnReceipt:=True
End Sub

une fenetre de outlook express (pkoi cette messagerie déjà ?!) s'ouvre et me demande confirmation de l'envoi....sans me demander de rechanger toutes les infos sur les comptes serveurs....du coup je suis coincé et je ne sais pas comment "déparamétrer" ca.......

[Fvandermeulen]

Re,

Regarde ceci, j'ai pas le temps de lire et voir si ça convient mais je te laisse faire...

http://excel.developpez.com/faq/inde...ailCDOexchange

A+

[tony020422]

vraiment sympa le lien!

pour ma part j'ai tapé ca:

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
Option Explicit
 
Sub Tst_Wb()
Dim SourceWb As Workbook
Dim CdoMessage As Object
Dim Fichier As String
 
    Set SourceWb = ActiveWorkbook
    Fichier = ThisWorkbook.Path & Application.PathSeparator & "Toto.xls"
    
    SourceWb.SaveCopyAs Fichier
 
    Set CdoMessage = CreateObject("CDO.Message")
    With CdoMessage
        .Subject = "Exemple"
        .From = "antony.olivero@yahoo.fr"
        .To = "didier.guidoni@thyssenkrupp.com"
        .CC = ""
        .BCC = ""
        .TextBody = "je fais un essai !"
        .AddAttachment Fichier
        .Send   --> ERREUR!
    End With
    
    Set CdoMessage = Nothing
    'Kill Fichier
End Sub

mais j'ai une erreur qui apparait (cf piece jointe!)

ca a l'air de presque fonctionner mais non!

par contre en faisant fichier puis envoyer vers puis.... c'est bien une fenetre outlook qui s'ouvre!

si t'as des idées
...