Bonjour,
Voici mon code
Sub envoimail()
Dim Ol As Object
Dim Email As Object
Dim wd As Object
' Création objet Application Outlook
Set Ol = CreateObject("outlook.application")
' Création objet Nouveau message
Set Email = Ol.createItem(olMailItem)
' Liste de diffusion : A
Set Recipient =
Email.Recipients.Add"yyyyyyyyyy@xxxxx.com;yyyyyy@xxxxx.com")
' Objet
date1 = Format(Date, "dd mmmm yyyy")
Email.Subject = "Top mois mise a jour le " & date1
' Attachement de la pièce jointe
Set Attachment = Email.Attachments
Attachment.Add "c:\topmois.zip", 1, 500, "Nom du fichier joint "
' Corps du message
Email.body = " Recevez en pièce jointe le top mois mis à jour le " &
date1 & Chr(10) & Chr(10) & "ceci est un essai de l automatisation" & Chr(10)
& "Bonne réception " & Chr(10) & Chr(10) &
"Philippe G." & Chr(10) & "Service ADV"
' Affichage mail
Email.Send
End Sub
j ai une erreur sur Email.send comme quoi il ne reconnait pas un ou
plusieurs noms parcontre a la place de Send je mets Display cela fonctionne
mais pas automatique
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Il te manque une parenthèse ouvrante ici :
Email.Recepients.Add(
Cordialement Pascal
"Philippe" a écrit dans le message de news:
Bonjour, Voici mon code Sub envoimail() Dim Ol As Object Dim Email As Object Dim wd As Object ' Création objet Application Outlook
Set Ol = CreateObject("outlook.application")
' Création objet Nouveau message Set Email = Ol.createItem(olMailItem)
' Liste de diffusion : A Set Recipient > Email.Recipients.Add";")
' Objet date1 = Format(Date, "dd mmmm yyyy") Email.Subject = "Top mois mise a jour le " & date1
' Attachement de la pièce jointe
Set Attachment = Email.Attachments
Attachment.Add "c:topmois.zip", 1, 500, "Nom du fichier joint "
' Corps du message Email.body = " Recevez en pièce jointe le top mois mis à jour le " & date1 & Chr(10) & Chr(10) & "ceci est un essai de l automatisation" & Chr(10) & "Bonne réception " & Chr(10) & Chr(10) & "Philippe G." & Chr(10) & "Service ADV"
' Affichage mail Email.Send
End Sub j ai une erreur sur Email.send comme quoi il ne reconnait pas un ou plusieurs noms parcontre a la place de Send je mets Display cela fonctionne mais pas automatique
Merci d'avance
Soft
Bonjour
Il te manque une parenthèse ouvrante ici :
Email.Recepients.Add(
Cordialement
Pascal
"Philippe" <Philippe@discussions.microsoft.com> a écrit dans le message de
news: 64C1B030-8A3A-4AA3-87B4-E3DF96BE0CC0@microsoft.com...
Bonjour,
Voici mon code
Sub envoimail()
Dim Ol As Object
Dim Email As Object
Dim wd As Object
' Création objet Application Outlook
Set Ol = CreateObject("outlook.application")
' Création objet Nouveau message
Set Email = Ol.createItem(olMailItem)
' Liste de diffusion : A
Set Recipient > Email.Recipients.Add"yyyyyyyyyy@xxxxx.com;yyyyyy@xxxxx.com")
' Objet
date1 = Format(Date, "dd mmmm yyyy")
Email.Subject = "Top mois mise a jour le " & date1
' Attachement de la pièce jointe
Set Attachment = Email.Attachments
Attachment.Add "c:topmois.zip", 1, 500, "Nom du fichier joint "
' Corps du message
Email.body = " Recevez en pièce jointe le top mois mis à jour le " &
date1 & Chr(10) & Chr(10) & "ceci est un essai de l automatisation" &
Chr(10)
& "Bonne réception " & Chr(10) & Chr(10)
&
"Philippe G." & Chr(10) & "Service ADV"
' Affichage mail
Email.Send
End Sub
j ai une erreur sur Email.send comme quoi il ne reconnait pas un ou
plusieurs noms parcontre a la place de Send je mets Display cela
fonctionne
mais pas automatique
Bonjour Il te manque une parenthèse ouvrante ici :
Email.Recepients.Add(
Cordialement Pascal
"Philippe" a écrit dans le message de news:
Bonjour, Voici mon code Sub envoimail() Dim Ol As Object Dim Email As Object Dim wd As Object ' Création objet Application Outlook
Set Ol = CreateObject("outlook.application")
' Création objet Nouveau message Set Email = Ol.createItem(olMailItem)
' Liste de diffusion : A Set Recipient > Email.Recipients.Add";")
' Objet date1 = Format(Date, "dd mmmm yyyy") Email.Subject = "Top mois mise a jour le " & date1
' Attachement de la pièce jointe
Set Attachment = Email.Attachments
Attachment.Add "c:topmois.zip", 1, 500, "Nom du fichier joint "
' Corps du message Email.body = " Recevez en pièce jointe le top mois mis à jour le " & date1 & Chr(10) & Chr(10) & "ceci est un essai de l automatisation" & Chr(10) & "Bonne réception " & Chr(10) & Chr(10) & "Philippe G." & Chr(10) & "Service ADV"
' Affichage mail Email.Send
End Sub j ai une erreur sur Email.send comme quoi il ne reconnait pas un ou plusieurs noms parcontre a la place de Send je mets Display cela fonctionne mais pas automatique
Merci d'avance
Soft
papou
Re Sinon, pour pallier à ce problème, il te suffit d'écrire plusieurs lignes avec .Recipients.Add .Recipients.Add
Cordialement Pascal
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour Il te manque une parenthèse ouvrante ici :
Email.Recepients.Add(
Cordialement Pascal
"Philippe" a écrit dans le message de news:
Bonjour, Voici mon code Sub envoimail() Dim Ol As Object Dim Email As Object Dim wd As Object ' Création objet Application Outlook
Set Ol = CreateObject("outlook.application")
' Création objet Nouveau message Set Email = Ol.createItem(olMailItem)
' Liste de diffusion : A Set Recipient >> Email.Recipients.Add";")
' Objet date1 = Format(Date, "dd mmmm yyyy") Email.Subject = "Top mois mise a jour le " & date1
' Attachement de la pièce jointe
Set Attachment = Email.Attachments
Attachment.Add "c:topmois.zip", 1, 500, "Nom du fichier joint "
' Corps du message Email.body = " Recevez en pièce jointe le top mois mis à jour le " & date1 & Chr(10) & Chr(10) & "ceci est un essai de l automatisation" & Chr(10) & "Bonne réception " & Chr(10) & Chr(10) & "Philippe G." & Chr(10) & "Service ADV"
' Affichage mail Email.Send
End Sub j ai une erreur sur Email.send comme quoi il ne reconnait pas un ou plusieurs noms parcontre a la place de Send je mets Display cela fonctionne mais pas automatique
Merci d'avance
Soft
Re
Sinon, pour pallier à ce problème, il te suffit d'écrire plusieurs lignes
avec
.Recipients.Add zoz@toto.fr
.Recipients.Add zaz@toto.fr
Cordialement
Pascal
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
O4QkimFXFHA.2128@TK2MSFTNGP14.phx.gbl...
Bonjour
Il te manque une parenthèse ouvrante ici :
Email.Recepients.Add(
Cordialement
Pascal
"Philippe" <Philippe@discussions.microsoft.com> a écrit dans le message de
news: 64C1B030-8A3A-4AA3-87B4-E3DF96BE0CC0@microsoft.com...
Bonjour,
Voici mon code
Sub envoimail()
Dim Ol As Object
Dim Email As Object
Dim wd As Object
' Création objet Application Outlook
Set Ol = CreateObject("outlook.application")
' Création objet Nouveau message
Set Email = Ol.createItem(olMailItem)
' Liste de diffusion : A
Set Recipient >> Email.Recipients.Add"yyyyyyyyyy@xxxxx.com;yyyyyy@xxxxx.com")
' Objet
date1 = Format(Date, "dd mmmm yyyy")
Email.Subject = "Top mois mise a jour le " & date1
' Attachement de la pièce jointe
Set Attachment = Email.Attachments
Attachment.Add "c:topmois.zip", 1, 500, "Nom du fichier joint "
' Corps du message
Email.body = " Recevez en pièce jointe le top mois mis à jour le " &
date1 & Chr(10) & Chr(10) & "ceci est un essai de l automatisation" &
Chr(10)
& "Bonne réception " & Chr(10) &
Chr(10) &
"Philippe G." & Chr(10) & "Service ADV"
' Affichage mail
Email.Send
End Sub
j ai une erreur sur Email.send comme quoi il ne reconnait pas un ou
plusieurs noms parcontre a la place de Send je mets Display cela
fonctionne
mais pas automatique
Re Sinon, pour pallier à ce problème, il te suffit d'écrire plusieurs lignes avec .Recipients.Add .Recipients.Add
Cordialement Pascal
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour Il te manque une parenthèse ouvrante ici :
Email.Recepients.Add(
Cordialement Pascal
"Philippe" a écrit dans le message de news:
Bonjour, Voici mon code Sub envoimail() Dim Ol As Object Dim Email As Object Dim wd As Object ' Création objet Application Outlook
Set Ol = CreateObject("outlook.application")
' Création objet Nouveau message Set Email = Ol.createItem(olMailItem)
' Liste de diffusion : A Set Recipient >> Email.Recipients.Add";")
' Objet date1 = Format(Date, "dd mmmm yyyy") Email.Subject = "Top mois mise a jour le " & date1
' Attachement de la pièce jointe
Set Attachment = Email.Attachments
Attachment.Add "c:topmois.zip", 1, 500, "Nom du fichier joint "
' Corps du message Email.body = " Recevez en pièce jointe le top mois mis à jour le " & date1 & Chr(10) & Chr(10) & "ceci est un essai de l automatisation" & Chr(10) & "Bonne réception " & Chr(10) & Chr(10) & "Philippe G." & Chr(10) & "Service ADV"
' Affichage mail Email.Send
End Sub j ai une erreur sur Email.send comme quoi il ne reconnait pas un ou plusieurs noms parcontre a la place de Send je mets Display cela fonctionne mais pas automatique
Merci d'avance
Soft
Philippe
Merci papou de te pencher sur mon probleme mais la parenthese est bien mise c etait un oubli de ma part
mon pb est bien au niveau de Email.Send car avec Email.display cela fonctionne
Cordialement
Philippe
Merci papou de te pencher sur mon probleme mais la parenthese est bien mise c
etait un oubli de ma part
mon pb est bien au niveau de Email.Send car avec Email.display cela fonctionne