Envoie Email
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
bonjour JEAN ERIC
j'ai mit le "465", mais l'erreur est la même
merci pour tous vos aides
cordialement
Re,
Envoie ton fichier (ou du moins ta procédure) sans données confidentielles.
Cdlt.
Re
La procédure de ton fichier 'CDO_Mail_ActiveSheet()' fonctionne parfaitement chez moi.
Cdlt.
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
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
bonsoir a tous
bonne année 2015
ca coince toujours à ".To = "kira972j@....com" 'à modifier"
merci de votre aide
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
re
Deuxieme test clic sur le bouton envoie email et remplie les infos demander
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
!!!
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
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!!!
Je regarde a nouveau
on en discutera car tout fonctionne pour moi
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
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
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
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
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
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 .