Discussion :

[taurus]

Bonjour, j'ai un pb pour l'envoi de mail via visual basic voici mon code:

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
 
Dim o As Outlook.Application
Set o = New Outlook.Application
Dim mail As Outlook.MailItem
Set mail = o.CreateItem(olMailItem)
 
la_date = Format(Now, "-d-m-yy")
Fichier = Nom_client.Text & Ville.Text & la_date & ".doc"
With mail
    .Subject = "Devis de réparation"
    .To = A_mail.Text
    .CC = "s.leon@lete.fr"
    .Body = "Voici le devis de réparation"
    .Attachments.Add ("\\Servfichier\Administ\Bureau\Service colis\Devis\" & Fichier)
    .Send
End With
 
Set mi = Nothing
Set o = Nothing
Label7.Caption = "SUCCESS MAILING"
sub1:

en fait, le pb c'est qu'il ne trouve pas mon fichier a joindre alors qu'il est bien present a l'endroit specifie.De plus, pouvez vous me dire si le code en lui meme est correct.Merci

[pc75]

Bonjour,

Voila un code qui fonctionne chez moi

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
 
      Set iOutlook = CreateObject("Outlook.Application")
      ' Nouveau message
      Set myitem = iOutlook.CreateItem(olMailItem)
      ' Objet du message
      myitem.Subject = txtObjet.Text
      ' Corps du message
      myitem.Body = txtMessage.Text
      ' Pièce jointe ?
      If Len(Trim(txtJoindre.Text)) > 0 Then
         Dim myAttachments As Attachments
         Set myAttachments = myitem.Attachments
         myAttachments.Add txtJoindre.Text
      End If
      Set myRecipient = myitem.Recipients.Add("bibi@ici.fr")
      myitem.Send
      Set iOutlook = Nothing
      Set myitem = Nothing
      Set myRecipient = Nothing

[taurus]

cependant pour le fichier a attache il faut renseigné le chemin ou est le fichier je pense non?

[pc75]

cependant pour le fichier a attache il faut renseigné le chemin ou est le fichier je pense non?

Oui, bien sur

[SfJ5Rpw8]

Bonjour, j'ai un pb pour l'envoi de mail via visual basic voici mon code:

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
 
Dim o As Outlook.Application
Set o = New Outlook.Application
Dim mail As Outlook.MailItem
Set mail = o.CreateItem(olMailItem)
 
la_date = Format(Now, "-d-m-yy")
Fichier = Nom_client.Text & Ville.Text & la_date & ".doc"
With mail
    .Subject = "Devis de réparation"
    .To = A_mail.Text
    .CC = "s.leon@lete.fr"
    .Body = "Voici le devis de réparation"
    .Attachments.Add ("\\Servfichier\Administ\Bureau\Service colis\Devis\" & Fichier)
    .Send
End With
 
Set mi = Nothing
Set o = Nothing
Label7.Caption = "SUCCESS MAILING"
sub1:
 
en fait, le pb c'est qu'il ne trouve pas mon fichier a joindre alors qu'il est bien present a l'endroit specifie.De plus, pouvez vous me dire si le code en lui meme est correct.Merci
 :oops:

j'ai tester ton code il marche... vérifie le nom du fichier et son accesibilité..
utilise par exemple

Code :

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

1
2
3
4
5
6
7
 
  stRepFichier ="\\Servfichier\Administ\Bureau\Service colis\Devis\" & Fichier
if Dir (stRepFichier) = "" then
 msgBox "Fichier Inexistant"
 exit sub
endif
...

[taurus]

c'est bizarre il ne me prends pas le fichier si je met le chemin:
\\serv....
par contre si je met le lecteur reseau:
G:\devis\nom.doc
la ca marche
??

[Xo]

c'est bizarre il ne me prends pas le fichier si je met le chemin:
\\serv....
par contre si je met le lecteur reseau:
G:\devis\nom.doc
la ca marche
??

J'ai vu un truc comme ça (avec 2 autres paramètres) dans un bout de code (pas à moi), you can try it :

Code :

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

.Attachments.Add "\\server\drive\folder\filename", olByValue, 1

[SfJ5Rpw8]

c'est bizarre il ne me prends pas le fichier si je met le chemin:
\\serv....
par contre si je met le lecteur reseau:
G:\devis\nom.doc
la ca marche
??

moi je dirai que c'est encore un problème d'espace dans nom de fichier ou répertoire ...

essai :

Code :

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

.Attachments.Add ("""\\Servfichier\Administ\Bureau\Service colis\Devis\" & Fichier & """")

[taurus]

non ca ne marche toujours pas. le code suivant n'est pas bon

Code :

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

1
2
 
.Attachments.Add ("""\\Servfichier\Administ\Bureau\Service colis\Devis\" & Fichier & """")

[SfJ5Rpw8]

j'ai fais un essai et c'est vrai c'est pas un probléme d'espace ... ça marche même si le nom de fichier ou de répertoire comprends des espaces...
du devrai vérifier le répertoire :

Code :

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

\\Servfichier\Administ\Bureau\Service colis\Devis

existence ... accés ...

as tu essayer la commande DIr donnée plus huat voir si tu as accés à ce fichier depuis ton code VBA?

[Megaxel]

J'ai peut-être une piste: quand tu utilises le nom UNC, tu dois mettre:

Code :

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

1
2
 
\\NomServeur\NomPartage\SousRepertoire\NomDuFichier.doc

Or, d'après l'exemple avec le lecteur réseau, le partage, c'est "Devis".
Donc, essaie de mettre

Code :

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

1
2
 
\\Servfichier\Devis\MonFichier.doc

[taurus]

c ok j'ai trouve mon probleme c'etait au niveau du format de mon champ date merci a tous