Problème lors de l'envois d'une pièce jointe [Résolu]
A voir également:
- Problème lors de l'envois d'une pièce jointe
- Envois mail avec pièce jointe ✓ - Forum - PHP
- Formulaire php envoi mail avec piece jointe - Guide
- Extraire piece jointe outlook vba - Guide
- Java envoyer mail avec piece jointe - Forum - Java
- Php mail piece jointe - Guide
5 réponses
Bien oui en effet, apparemment l'envois d'email requière un accès au fichier exclusif (en écriture et lecture), ton fichier étant ouvert par une autre application ce n'est donc pas le cas. Je te conseille donc d'en créer une copie dans un répertoire temporaire avant l'envoi.
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.
Salut,
Il va falloir donner plus de détails si tu souhaites une réponse. SMTP n'est pas une méthode mais un protocole qui ne nous explique guerre la méthode que tu utilises pour l'envoi.
- Poste ton code.
- Explique clairement quel message d'erreur tu rencontres.
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.
Il va falloir donner plus de détails si tu souhaites une réponse. SMTP n'est pas une méthode mais un protocole qui ne nous explique guerre la méthode que tu utilises pour l'envoi.
- Poste ton code.
- Explique clairement quel message d'erreur tu rencontres.
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.
Aussi :
- Quel est le type de fichier de la pièce jointe
- Avec quel logiciel ouvres-tu cette pièce jointe avant l'envoi
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.
- Quel est le type de fichier de la pièce jointe
- Avec quel logiciel ouvres-tu cette pièce jointe avant l'envoi
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.
Alors tout d'abord, voilà le code utilisé:
Public Sub SendMail()
With CreateObject("CDO.Message")
Set objEmail = CreateObject("CDO.Message")
.From = "kiki@mpsa.com"
.To = "koko@mpsa.com"
.Subject = "URGENT - Une Demande de travaux vous a été soumise"
.HTMLBody = "Veuillez trouver ci-joint une demande de Travaux avec pièce jointe"
.AddAttachment ("\\pysn1101\_dsty_stco\PLRS\1_SUIVI_AFFAIRES\8_DEMANDES DE TRAVAUX" & Form1.TextEnt.Text & "_" & Form1.TextCp.Text & "_" & Form1.TextDes.Text & "_" & Form1.TextNom.Text & "_" + Format(Now, "yyyy.MM.dd") + ".xls")
If Form1.TextPj1.Text = "" Then
.HTMLBody = "Veuillez trouver ci-joint une demande de Travaux"
Else: .AddAttachment (Form1.TextPj1.Text)
End If
.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SMTP"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err Then MsgBox "Le message n'a pas pu être expédié."
On Error GoTo 0
End With
End Sub
Et pour le message d'erreur il s'agit d'une "Erreur d'exécution '-2147024864(80070020)': Le processus ne peut accéder au fichier car ce fichier est utilisé par un autre processus."
Pour le type de fichier il peut s'agir de n'importe quoi, cela m'affiche le message que ce soit un fichier texte ouvert avec Word, une image en format bmp ouverte avec paint ou photoshop, etc...
Avez-vous une idée sur le problème qui m'est posé? :s
Merci beaucoup de m'aider quoi qu'il en soit en tout cas.
Cordialement.
Public Sub SendMail()
With CreateObject("CDO.Message")
Set objEmail = CreateObject("CDO.Message")
.From = "kiki@mpsa.com"
.To = "koko@mpsa.com"
.Subject = "URGENT - Une Demande de travaux vous a été soumise"
.HTMLBody = "Veuillez trouver ci-joint une demande de Travaux avec pièce jointe"
.AddAttachment ("\\pysn1101\_dsty_stco\PLRS\1_SUIVI_AFFAIRES\8_DEMANDES DE TRAVAUX" & Form1.TextEnt.Text & "_" & Form1.TextCp.Text & "_" & Form1.TextDes.Text & "_" & Form1.TextNom.Text & "_" + Format(Now, "yyyy.MM.dd") + ".xls")
If Form1.TextPj1.Text = "" Then
.HTMLBody = "Veuillez trouver ci-joint une demande de Travaux"
Else: .AddAttachment (Form1.TextPj1.Text)
End If
.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SMTP"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err Then MsgBox "Le message n'a pas pu être expédié."
On Error GoTo 0
End With
End Sub
Et pour le message d'erreur il s'agit d'une "Erreur d'exécution '-2147024864(80070020)': Le processus ne peut accéder au fichier car ce fichier est utilisé par un autre processus."
Pour le type de fichier il peut s'agir de n'importe quoi, cela m'affiche le message que ce soit un fichier texte ouvert avec Word, une image en format bmp ouverte avec paint ou photoshop, etc...
Avez-vous une idée sur le problème qui m'est posé? :s
Merci beaucoup de m'aider quoi qu'il en soit en tout cas.
Cordialement.