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]

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à...