Discussion :

[megamario]

Bonjour,

J'ai un souci, je souhaiterais non pas envoyer un email, mais le pré-remplir et l'envoyer vers la messagerie par défaut afin que l'utilisateur puisse rajouter ces commentaires. De plus j'aimerais y ajouter un ou plusieurs fichiers.

Mon poste à Outlook 2010, mais il faudrait que cela fonctionne avec un maximum de messagerie. En évitant de renseigner les paramètres SMTP, les utilisateurs ne les connaisses pas forcement, de plus c'est souvent sur des réseaux d'entreprise qui ont leur propre smtp avec leur restriction.

J'ai réussi avec mailto à m'ouvrir ma messagerie mais sans le fichier attaché.

J'ai réussi à m'envoyer un email avec MAPI mais dans ce cas il n'ouvre pas la messagerie et donc l'on ne peut pas modifier le corps du message. De plus j'ai cru comprendre que cela s'adressait au client de messagerie Microsoft donc outlook...

Y a t'il une solution en VB6.

Éventuellement vérifier la présence ou pas d'un logiciel compatible avec MAPI s'il n'y a pas moyen, puis avant d'envoyer le message j'ouvre un objet graphique permettant d'ajouter un commentaire au corps du message.


Merci

[megamario]

Bonjour,

Au lieu d'ouvrir la messagerie par défaut, je me suis résolue à envoyer l'email avec MAPI.

Cela a fonctionné parfaitement bien depuis le début de semaine, mais je ne sais pas pourquoi juste après la présentation à mon responsable, cela ne fonctionne plus.

Lors de l'envoie j'ai le message d'avertissement de outlook avec une barre de progression ou il faut que j'attende pour valider l'envoie. Sa je l'ai depuis le début. Mais la cela me créé une erreur lorsque je valide avec un "Unspecified Failure has occurred"


Je me suis rabattu sur l'utilisation des sockets en aillant crée un email gmail. Sur tout les exemple trouve j'en ai pas trouvé un qui fonctionne. Il m'indique tous le port 25 m'ais j'ai besoin d'une authentification apparemment sur le port 465 ou 587.

En cherchant je suis tombé sur l'utilisation de CDO, mais la encore aucun ne fonctionne. j'ai un message d'erreur après quelques seconde "Le transport à échoué dans sa connexion au serveur."

le code que j'ai trouvé et essayé

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
Sub EnvoiMailCDO()
Dim mMessage As Object
Dim mConfig As Object
Dim mChps
 
    Set mConfig = CreateObject("CDO.Configuration")
 
    mConfig.Load -1
    Set mChps = mConfig.fields
    With mChps
        .item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        'Adapter suivant votre serveur de mail. (exemple pour Gmail.)
        .item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        'En principe, 25 fonctionne avec tout les serveurs.
        .item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
 
        'Vous pouvez essayer sans ces trois lignes
        'Mais si votre serveur demande une authentification,
        .item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "L'adresse email complète de Gmail"
        .item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "le mot de passe Gmail"
        'Si votre serveur demande une connexion sûre (SSL)
        .item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
 
        .item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
        .Update
    End With
 
    Set mMessage = CreateObject("CDO.Message")
    With mMessage
    Set .Configuration = mConfig
        .from = "monemail"
        .To = "l'email à joindre"
        .Subject = "Le sujet du mail"
        .TextBody = "Ce mail vous est envoyer pour tester"
        'Pour ajouter une pièce jointe, un fichier, classeur, image etc.
        '.AddAttachment 'Chemin et nom complet du fichier à joindre
        .fields.Update
        .send
    End With
    Set mMessage = Nothing
 
    'Libère les ressources
    Set mConfig = Nothing
    Set mChps = Nothing
End Sub

Merci de votre aide, si vous avez une solution qui inclue l'envoie d'une pièce jointe.

[megamario]

J'ai résolu en partie mes 2 problèmes.

1ere ) IMAP, il fonctionne parfaitement. j'avais un souci tout bête, j'ai 2 textbox que je concatène dans le message. l'un pour mes infos qui n'est pas modifiable par l'utilisateur, et l'autre pour ajouter un commentaire, mais pour les essaies je n'avais pas rempli le 2eme et malgrés tout je faisait un & avec les 2 textBox et cela plantait.


2eme) Avec CDO, cela fonctionne aussi parfaitement mais c'est notre réseaux qui n'accepte pas de sortir avec ce protocole. J'ai testé chez moi et nickel.


Par contre:

Avec ces solutions:

IMAP, ne fonctionne pas avec Windows live mail. il lance bien la demande mais plante ensuite.

Avec CDO, j'ai créé un compte Gmail et cela fonctionne mais Gmail m'a demandé de passer en mode moins sécurisé et la cela me gène.


Question:

A part laisser l'utilisateur rentrer ces paramètres SMTP (je vais laisser le choix mais a voir toutes les configuration possible). Y a t'il un moyen d'utiliser GMAIL en mode sécurisé avec CDO ou autre. J'avais essayé avec les Socket mais cela ne fonctionnait pas, mais normale puisque l'on ne peut pas sortir de notre réseau.

Si GMAIL est à proscrire, Y a t'il un serveur SMTP utilisable partout dans le monde?

J'ai demandé à l'IT chez nous si un serveur SMTP était disponible, mais pas de réponse pour le moment. il ne semble pas.


Merci

[megamario]

Bonjour,

Ya t'il un moyen de passer par un serveur de type Gmail en respectant les caractéristiques de sécurité de ces derniers afin de ne pas avoir à réduire leur niveau de sécurité?

Merci