Discussion :

[fabioexcel]

Bonjour a tous , voila mon soucis je n’utilise pas Outlook mais Gmail et je voudrais savoir si c est possible d'envoyer une feuille par mail via excel ( gain de temps). A savoir que sur ma feuille les adresse ne sont pas fixe le destinataire dans un menu déroulant et son adresse mail figure sur la feuille via RechercheV . Est ce possible ? Merci d'avance

[piotr76]

Bonjour

A voir

http://www.developpez.net/forums/d14...t/#post7968025

Cordialement

[fabioexcel]

Bonjour , cela ne veut pas fonctionner Je pense que je me suis mal exprimer . J'ai creer une feuille excel pour l'envoie de commande par mail, j'ai créer un menu déroulant avec les clients et l'adresse mail du fournisseur s'affiche dans une cellule dans mon cas c18. J'ai créer un bouton envoyer , mais je n'arrive pas trouver la bonne macro

[parmi]

Bonjour,

Tu peux toujours essayer avec ShellExecute, mais je ne sais pas si ça va fonctionner avec GMail...
En fait ShellExecute va démarrer le programme par défaut.
Au lieu de Me.Hwnd, écris 0

Il y a un bon exemple ICI, mais c'est en anglais...

Sinon, montre le code que tu essaies.

[fabioexcel]

Salut , merci c est gentil voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub envoie()
Dim Dest(3) As String, Sujet As String
Sheets("Mailfax").Select
ActiveSheet.Copy
Dest(0) = "x@gmail.com"
Sujet = "TEST "
ActiveWorkbook.SENDMAIL Dest, Sujet, True
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
MsgBox ("Mail envoyé")
End Sub

Ce que j'aimerais c est par rapport a mon projet que excel envoie mail par rapport adresse afficher a l'intant T dans la cellule c18

[kiki29]

Salut, voir ici , il s'agit de l'envoi d'un pdf via CDO. Donc à adapter à ton contexte.

[fabioexcel]

Je n'y comprend rien :s

[fabioexcel]

Bonjour

A voir

http://www.developpez.net/forums/d14...t/#post7968025

Cordialement

Merci , mais je ne parviens pas a paramétrer et le Code de KIKI29 est aussi dur a paramétrer

[kiki29]

Salut, pas de bras pas de chocolat .....

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
Option Explicit

Sub Tst()
Dim sFichier As String
    sFichier = ThisWorkbook.Path & "\" & "essai.xls"
    EnvoiCDO sFichier
End Sub

Private Sub EnvoiCDO(sNomFichier As String)
Dim Msg As Object
Dim Conf As Object
Dim sBody As String
Dim Flds As Variant

    Set Msg = CreateObject("CDO.Message")
    Set Conf = CreateObject("CDO.Configuration")

    Conf.Load -1
    Set Flds = Conf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        ' à adapter à votre contexte : message sortant
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.orange.fr"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Update
    End With

    sBody = "Test"

    With Msg
        Set .Configuration = Conf
        ' à adapter à votre contexte
        .To = "xxxxx@gmail.com"
        .CC = ""
        .BCC = ""
        ' à adapter à votre contexte
        .From = """Triboulet"" <yyyyy@orange.fr>"
        .Subject = "Test"
        .TextBody = sBody
        .AddAttachment sNomFichier
        .Send
    End With

    Set Conf = Nothing
    Set Msg = Nothing
End Sub

je viens de le tester chez moi, cela fonctionne
A voir : ici

[fabioexcel]

Tu trouveras ci joint , un exemple de mon fichier, je ne suis pas douer en macro je l'admet . A la base dans ma cellule C18 l'adresse mail ce mettait en fonction du destinataire mais si je dois créer un bouton par destinataire ce n'est pas grave.

ZEMA Fabio GESTION (1).xlsm

Merci infiniment .

Fabio

[parmi]

As-tu pris le temps de regarder le lien (et le code) proposés par kiki29 ?
Tout est là...

[fabioexcel]

Bonjour a tous , je tiens a vous remercier pour votre soutien. Mais je ne parviens pas a la faire fonctionner , faut il un programme complémentaire ?

[parmi]

Écris le bout de code que tu as essayé et qui ne fonctionne pas.
Ça pourrait aider.

[fabioexcel]

Sa beug ici :

.AddAttachment sNomFichier

[fabioexcel]

Alors voila j'ai supprimer mon soucis, les mails sont envoyer. Mais le contenu est vide comment paramétrer cela ?

[parmi]

Sa beug ici :

.AddAttachment sNomFichier

Tu es économe en bout de code...
Que vaut sNomFichier quand ça s'arrête à cette ligne ?
Quel est le message d'erreur ?

[fabioexcel]

Bonjour cela Affiche

"erreur d’exécution, le processus ne peut accéder au fichier car ce fichier est utilisé par un autre processus "

[parmi]

J'imagine donc que le fichier que tu veux joindre est déjà ouvert et que la macro n'aime pas ça...
Il te faudrait fermer le fichier auparavant et voir si ça fonctionne mieux.

Si c'est le classeur dans lequel la macro se trouve, commence par faire un test avec un autre fichier fermé.
Si ça fonctionne, fais une copie de ton classeur et envoie cette copie après t'être assuré qu'elle est bien fermée.

[fabioexcel]

J ai essayer cela ne marche pas

[parmi]

Met tout le bout de code que tu utilises pour l'envoi