Envoie Email

Le 31/12/2014 à 13:34

bonjour iliyes, Jean-Eric et le forum

Jean-Eric connais-tu les codes SMTP des fournisseurs internet comme celui de ta réponse

moi j'ai une liste des SMTP mais pas leur codes où les trouvent-on

smtp.neuf.fr

smtp.9online.fr

smtp.fr.aol.com

smtp.cegetel.net

mail.club-internet.fr

smtp.free.fr

smtp.freesurf.fr

smtp.gawab.com

smtp.gmail.com

smtp.live.com

mx1.hotmail.com

smtp.ifrance.com

smtp.laposte.net

smtp.magic.fr

mail.noos.fr

mail.oreka.fr

smtp1.sympatico.ca

smtp.tele2.fr

smtp.tiscali.fr

smtp.freesbee.fr

smtp.wanadoo.fr

smtp.mail.yahoo.fr

smtp.orange.fr

Pardon ce ne ne sont pas des codes mais des n°de port

Pascal

Le 31/12/2014 à 13:40

bonjour JEAN ERIC

j'ai mit le "465", mais l'erreur est la même

merci pour tous vos aides

cordialement

Le 31/12/2014 à 13:50

Re,

Envoie ton fichier (ou du moins ta procédure) sans données confidentielles.

Cdlt.

Le 31/12/2014 à 14:00

re bonjour

ci joint mon fichier

cordialement

10bouayed-chiffres-du-jour-v-003.xlsm (165.12 Ko)
Le 31/12/2014 à 14:07

Re

La procédure de ton fichier 'CDO_Mail_ActiveSheet()' fonctionne parfaitement chez moi.

Cdlt.

Le 31/12/2014 à 14:17

en!!! je ne sait quoi dire,

j'essaierais le fichier chez moi ce soir avec office 2010

en ce moment je suis au bureau, peu être que l'excel 2007 est mal installé chez moi

cordialement

ps : je posterais le résultats ce soir

Le 31/12/2014 à 16:21

Bonjour, iliyes ,Jean-Eric

Je viens de telechargé le fichier que je t'ai envoyé , et j'ai mis mon email avec mon mot de passe ensuite completé le reste

et tout fonctionne bien même en remplacent le smtpserverport") = 25 par 465

Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "kira972j@gmail.com" ' à modifier
       .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = kiraj020123" ' à modifier
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Update
    End With

    With iMsg
        Set .Configuration = iConf

        signature = "Mr BENADI SALIH" & vbCrLf & "Responsable SHOOWROOM" 'changer votre nom entre les " "
        .To = "kira972j@excelpratique.com" 'à modifier
       .CC = ""
        .BCC = ""
        .From = """emetteur"" <kira972j@gmail.com>" ' à modifier
       .Subject = "les chiffre du jour" ' à modifier
       .TextBody = "Bonjour," & vbCrLf & "je vous pris de bien vouloir recevoir le mail des chiffres du jour," & vbCrLf & "cordialement" & vbCrLf & signature 'à modifier
       .AddAttachment TempFilePath & TempFileName & FileExtStr
        .Send
    End With
Le 31/12/2014 à 22:02

bonsoir a tous

bonne année 2015

ca coince toujours à ".To = "kira972j@....com" 'à modifier"

merci de votre aide

Le 31/12/2014 à 22:07

Salut

Bonsoir je suis dessus la et sa fonctionne impect

On va faire un petit test car tout ceux chez moi fonctionne y compris celui la

remplie les champs de E14 a E18

puis clic sur envoyer

C'est juste pour voir si cela fonctionne chez toi car normalement y a aucun soucis déjà essayé sur excel 2007-2010-2013

8bouayed-chiffres-du-jour-v-004.xlsm (174.34 Ko)

re

Deuxieme test clic sur le bouton envoie email et remplie les infos demander

10bouayed-chiffres-du-jour-v-005.xlsm (171.32 Ko)
Le 31/12/2014 à 23:10

re

sur la version 005 il y a toujours le bug sur ".To = InputBox("Veuillez saisir votre destinataire")"

au debut ca fonctionne bien!!!

mais arrivé a cela ca coince

precision je suis sous excel 2013

!!!

Le 31/12/2014 à 23:18

Re sur la version 004 est ce que c'est bon

et sur la version 005 as tu remplie tous les champs du exple:

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "k@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxx"

To="k@gmaill.com"
From="k@gmail.com"

si tu n as pas remplie les champs tu auras auras une erreure

Le 31/12/2014 à 23:37

re

sur la version 004

j'ai remplie les cellules E16 et E17, comme tu me l'a indiqué, mais toujours le deboguage ".To = Range("E16") & "," & Range("E17") 'Destinataire se trouvent en feuille recap E16 et E17"

sur la version 005

j'ai replies l'adresse, le mot de passe ainsi que destinaire et ldeboguage apparais " .To = Range("E16") & "," & Range("E17") 'Destinataire se trouvent en feuille recap E16 et E17"

au meme endroit!!!

Le 31/12/2014 à 23:42

Je regarde a nouveau

on en discutera car tout fonctionne pour moi

Le 31/12/2014 à 23:55

Bonjour

voir le fichier

cordialement

19mail-multiple.zip (13.87 Ko)
Le 01/01/2015 à 13:28

Bonjour

Ce n'est en 2015 que je vous espère à tous une bonne année 2015.

C’est grâce à vous que j'ai aimé EXCEL et particulièrement VBA

je remercie, Banzai ; Yvouille; Jean-eric; Eriiiic; R@chid; bouben ; kira972j; et je ne saurais énumérer toutes les personnes qui m'aident à mieux voir et à mieux comprendre ce fabuleux EXCEL

Je n’oublie surtout pas SEBASTIEN

Bonne et heureuses année 2015 pleines de joies et de bonnes choses

Une pensée à mon père décédé le 23 Décembre 2010

Une pensée à ma mère décédée le 01 Août 2014

Iliyes BOUKLI-HACENE

Le 01/01/2015 à 16:52

bonjur kira972j

ben, apres la soirée d'hier, j'ai re-installé mon excel2013.

l'erreur est la même

Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")

    iConf.Load -1    ' Source par défaut CDO
   Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Range("E14") ' feuille recap en E14
       .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Range("E15") ' feuille recap en E15
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
        .Update
    End With

    With iMsg
        Set .Configuration = iConf

        signature = "Mr BENADI SALIH" & vbCrLf & "Responsable SHOOWROOM" 'changer votre nom entre les " "
       [color=#FFFF40] .To = Range("E16") & "," & Range("E17") 'Destinataire se trouvent en feuille recap E16 et E17[/color]
       .CC = ""
        .BCC = ""
        .From = Range("E18") ' l'expediteur se trouve en feuille recap en E18
       .Subject = "les chiffre du jour" ' à modifier
       .TextBody = "Bonjour," & vbCrLf & "je vous pris de bien vouloir recevoir le mail des chiffres du jour," & vbCrLf & "cordialement" & vbCrLf & signature 'à modifier
       .AddAttachment TempFilePath & TempFileName & FileExtStr
        .Send
    End With

    'Supprime le fichier envoyé.
   Kill TempFilePath & TempFileName & FileExtStr

    Application.EnableEvents = True

    Set Flds = Nothing
    Set iConf = Nothing
    Set iMsg = Nothing
    Set wbNew = Nothing: Set wbSource = Nothing

End Sub

c'est ce que je recois sur le deboguer

!!!

je coince

merci d'avance

deslé

si joint le bon

Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")

    iConf.Load -1    ' Source par défaut CDO
   Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Range("E14") ' feuille recap en E14
       .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Range("E15") ' feuille recap en E15
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
        .Update
    End With

    With iMsg
        Set .Configuration = iConf

        signature = "Mr BENADI SALIH" & vbCrLf & "Responsable SHOOWROOM" 'changer votre nom entre les " "
        [color=#FFFF00].To = Range("E16") & "," & Range("E17") 'Destinataire se trouvent en feuille recap E16 et E17[/color]
       .CC = ""
        .BCC = ""
        .From = Range("E18") ' l'expediteur se trouve en feuille recap en E18
       .Subject = "les chiffre du jour" ' à modifier
       .TextBody = "Bonjour," & vbCrLf & "je vous pris de bien vouloir recevoir le mail des chiffres du jour," & vbCrLf & "cordialement" & vbCrLf & signature 'à modifier
       .AddAttachment TempFilePath & TempFileName & FileExtStr
        .Send
    End With

    'Supprime le fichier envoyé.
   Kill TempFilePath & TempFileName & FileExtStr

    Application.EnableEvents = True

    Set Flds = Nothing
    Set iConf = Nothing
    Set iMsg = Nothing
    Set wbNew = Nothing: Set wbSource = Nothing

End Sub
Le 01/01/2015 à 17:12

bonjour iliyes, kira972j et le forum

je ne suis pas sûr mais est ce que ce n'est pas dû au manque de référencement de la feuille car partout c'est

Range("....")

et non

sheets("recap").range("......").value

a voir

Pascal

Le 01/01/2015 à 17:34

Re

j'ai essayé plusieurs méthode de teste voir le fichier 004 et 005 et tout fonctionne donc je ne comprend pas.

j'ai refais un test et c'est ok il n'y a que mon mot de passe que j' ai remplacer par des xxxxxx

Dis moi est ce bien un identifiant gmail et ton mot de passe que tu rentres sinon sa ne passera pas .

Option Explicit
Public Sub CDO_Mail_ActiveSheet()
Dim wbSource As Workbook, wbNew As Workbook
Dim FileExtStr As String, TempFilePath As String, TempFileName As String
Dim FileFormatNum As Long
Dim iMsg As Object, iConf As Object
Dim Flds As Variant
Dim signature As String

If MsgBox("Etes-vous certain de vouloir envoyer cette email ?", vbQuestion + vbYesNo, _
            "Demande de confirmation") <> vbYes Then Exit Sub

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    Set wbSource = ActiveWorkbook
    ' Copie la feuille active dans un nouveau classeur.
   ActiveSheet.Copy
    ' Ou si vous voulez copier plusieurs feuilles. Utilisez :
   ' wbSource.Sheets(Array("Sheet1", "Sheet3")).Copy

   ActiveSheet.Shapes.Range(Array("bouton1")).Select 'Efface le bouton d'envoie
    Selection.Delete

   Set wbNew = ActiveWorkbook
    ' On détermine la version Excel et l'extension du fichier / Format
   With wbNew
        If Val(Application.Version) < 12 Then
            ' Excel 97-2003
           FileExtStr = ".xls": FileFormatNum = -4143
        Else
            ' 2007-2010
           ' On sort de la procédure dans le cas les macros sont désactivées.
           ' *** cas ou cette procédure est lancée d'un autre classeur (ex : Personal.xlsb).***
           If wbSource.Name = .Name Then
                Application.EnableEvents = True
                MsgBox "Vous n'avez pas activé les macros."
                Exit Sub
            Else
                Select Case wbSource.FileFormat
                    Case 51: FileExtStr = ".xlsx": FileFormatNum = 51
                    Case 52:
                        If .HasVBProject Then
                            FileExtStr = ".xlsm": FileFormatNum = 52
                        Else
                            FileExtStr = ".xlsx": FileFormatNum = 51
                        End If
                    Case 56: FileExtStr = ".xls": FileFormatNum = 56
                    Case Else: FileExtStr = ".xlsb": FileFormatNum = 50
                End Select
            End If
        End If
    End With
    ' Sauve le nouveau classeur, poste le message et supprime le fichier temporaire crée.
   TempFilePath = Environ$("temp") & "\"
    TempFileName = "Part of " & wbSource.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss")

    With wbNew
        .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
        MsgBox TempFilePath & TempFileName & FileExtStr
        .Close savechanges:=False
    End With

    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")

    iConf.Load -1    ' Source par défaut CDO
   Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "kira972j@gmail.com" 'mon identifiant gmail
       .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxxx" 'mon mot de passe gmail
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
        .Update
    End With

    With iMsg
        Set .Configuration = iConf

        signature = "Mr BENADI SALIH" & vbCrLf & "Responsable SHOOWROOM" 'changer votre nom entre les " "
        .To = "kira972j@gmail.com" 'email du destinataire
       .CC = ""
        .BCC = ""
        .From = "kira972j@gmail.com" 'email de l'expediteur
       .Subject = "les chiffre du jour" ' à modifier
       .TextBody = "Bonjour," & vbCrLf & "je vous pris de bien vouloir recevoir le mail des chiffres du jour," & vbCrLf & "cordialement" & vbCrLf & signature 'à modifier
       .AddAttachment TempFilePath & TempFileName & FileExtStr
        .Send
    End With

    'Supprime le fichier envoyé.
   Kill TempFilePath & TempFileName & FileExtStr

    Application.EnableEvents = True

    Set Flds = Nothing
    Set iConf = Nothing
    Set iMsg = Nothing
    Set wbNew = Nothing: Set wbSource = Nothing

End Sub
20bouayed-chiffres-du-jour-v-006.xlsm (171.15 Ko)
Le 01/01/2015 à 20:10

re

"the requested body part was not found in the message"

c'est le message d'erreur qui me parvien

apres avoir cliqué sur debogage c'est la ligne qui bloque ".To = "kira972j@gmail.com""

Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "iliyesb@gmail.com"
       .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "XXXXXXXX"
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
        .Update
    End With

    With iMsg
        Set .Configuration = iConf

        signature = "Mr BOUKLI HACENE Iliyes" & vbCrLf & "Responsable SHOOWROOM" 'changer votre nom entre les " "
        .To = "kira972j@gmail.com"
       .CC = ""
        .BCC = ""
        .From = "iliyesb@gmail.com"
       .Subject = "les chiffre du jour" ' à modifier
       .TextBody = "Bonjour," & vbCrLf & "je vous pris de bien vouloir recevoir le mail des chiffres du jour," & vbCrLf & "cordialement" & vbCrLf & signature 'à modifier
       .AddAttachment TempFilePath & TempFileName & FileExtStr
        .Send
    End With

    'Supprime le fichier envoyé.
   Kill TempFilePath & TempFileName & FileExtStr

    Application.EnableEvents = True

    Set Flds = Nothing
    Set iConf = Nothing
    Set iMsg = Nothing
    Set wbNew = Nothing: Set wbSource = Nothing

End Sub

voila ce que j'ai modifié( sauf les XXXX du mot de passe que j'ai changé)

merci

re

"the requested body part was not found in the message"

c'est le message d'erreur qui me parvien

apres avoir cliqué sur debogage c'est la ligne qui bloque ".To = "kira972j@gmail.com""

Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "iliyesb@gmail.com"
       .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "XXXXXXXX"
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
        .Update
    End With

    With iMsg
        Set .Configuration = iConf

        signature = "Mr BOUKLI HACENE Iliyes" & vbCrLf & "Responsable SHOOWROOM" 'changer votre nom entre les " "
        .To = "kira972j@gmail.com"
       .CC = ""
        .BCC = ""
        .From = "iliyesb@gmail.com"
       .Subject = "les chiffre du jour" ' à modifier
       .TextBody = "Bonjour," & vbCrLf & "je vous pris de bien vouloir recevoir le mail des chiffres du jour," & vbCrLf & "cordialement" & vbCrLf & signature 'à modifier
       .AddAttachment TempFilePath & TempFileName & FileExtStr
        .Send
    End With

    'Supprime le fichier envoyé.
   Kill TempFilePath & TempFileName & FileExtStr

    Application.EnableEvents = True

    Set Flds = Nothing
    Set iConf = Nothing
    Set iMsg = Nothing
    Set wbNew = Nothing: Set wbSource = Nothing

End Sub

voila ce que j'ai modifié( sauf les XXXX du mot de passe que j'ai changé)

merci

Le 01/01/2015 à 22:08

Re

tout à l air d'être bon si tu as bien mis ton mot de passe gmail à la place des xxxxxxx,

Je viens juste de refaire un autre teste cette fois ajoutant ton adresse mail dans .To = "iliy............@gmail.com"

Donc dis moi si tu as reçus le fichier car il est parti sans soucis

si c'est ok refais un teste et cette fois si tu as un debobage ( il est souligner en jaune fais moi une capture) pour que je puisse voir ou il est souligné et avec ton message d’erreur .

Rechercher des sujets similaires à "envoie email"