bonjour, je suis un d=E9butant en vb et j'aurais besoin d'envoyer un
mail automatique =E0 chaque jour. J'utilise excel et j'ai essay=E9 ca:
Sub a()
Dim msg As MailItem
Set olap =3D CreateObject("Outlook.Application")
Set msg =3D olapp.CreateItem(olMailItem)
msg.To =3D "xxx@hotmail.com"
msg.Subject =3D "Meilleurs voeux 2007!"
corps =3D "Cher Monsieur" & Chr(13) & Chr(13)
corps =3D corps & "Meilleurs voeux 2008"
msg.Body =3D corps
msg.Attachments.Add Source:=3D"c:\mail"
msg.Send
End Sub
ca me donne une erreur a la troisi=E8me ligne: erreur d'execution 424
objet requis
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
JB
Bonjour,
Dans l'interface VBA, Outils/Référence Microsoft Outlook xx JB
On 12 juin, 21:53, wrote:
bonjour, je suis un débutant en vb et j'aurais besoin d'envoyer un mail automatique à chaque jour. J'utilise excel et j'ai essayé ca:
Sub a() Dim msg As MailItem Set olap = CreateObject("Outlook.Application") Set msg = olapp.CreateItem(olMailItem) msg.To = "" msg.Subject = "Meilleurs voeux 2007!" corps = "Cher Monsieur" & Chr(13) & Chr(13) corps = corps & "Meilleurs voeux 2008" msg.Body = corps msg.Attachments.Add Source:="c:mail" msg.Send End Sub
ca me donne une erreur a la troisième ligne: erreur d'execution 424 objet requis
merci de votre aide
Bonjour,
Dans l'interface VBA, Outils/Référence Microsoft Outlook xx
JB
On 12 juin, 21:53, nordi...@hotmail.com wrote:
bonjour, je suis un débutant en vb et j'aurais besoin d'envoyer un
mail automatique à chaque jour. J'utilise excel et j'ai essayé ca:
Sub a()
Dim msg As MailItem
Set olap = CreateObject("Outlook.Application")
Set msg = olapp.CreateItem(olMailItem)
msg.To = "x...@hotmail.com"
msg.Subject = "Meilleurs voeux 2007!"
corps = "Cher Monsieur" & Chr(13) & Chr(13)
corps = corps & "Meilleurs voeux 2008"
msg.Body = corps
msg.Attachments.Add Source:="c:mail"
msg.Send
End Sub
ca me donne une erreur a la troisième ligne: erreur d'execution 424
objet requis
Dans l'interface VBA, Outils/Référence Microsoft Outlook xx JB
On 12 juin, 21:53, wrote:
bonjour, je suis un débutant en vb et j'aurais besoin d'envoyer un mail automatique à chaque jour. J'utilise excel et j'ai essayé ca:
Sub a() Dim msg As MailItem Set olap = CreateObject("Outlook.Application") Set msg = olapp.CreateItem(olMailItem) msg.To = "" msg.Subject = "Meilleurs voeux 2007!" corps = "Cher Monsieur" & Chr(13) & Chr(13) corps = corps & "Meilleurs voeux 2008" msg.Body = corps msg.Attachments.Add Source:="c:mail" msg.Send End Sub
ca me donne une erreur a la troisième ligne: erreur d'execution 424 objet requis
merci de votre aide
nordik78
salut, merci mais j'ai encore une erreur 424 objet requis
salut, merci mais j'ai encore une erreur 424 objet requis
salut, merci mais j'ai encore une erreur 424 objet requis
Corto
Bonjour nordik78, L'erreur est ici :
Set olap = CreateObject("Outlook.Application") Set msg = olapp.CreateItem(olMailItem) olap <> olapp
Corto
Bonjour,
Dans l'interface VBA, Outils/Référence Microsoft Outlook xx JB
On 12 juin, 21:53, wrote:
bonjour, je suis un débutant en vb et j'aurais besoin d'envoyer un mail automatique à chaque jour. J'utilise excel et j'ai essayé ca:
Sub a() Dim msg As MailItem Set olap = CreateObject("Outlook.Application") Set msg = olapp.CreateItem(olMailItem) msg.To = "" msg.Subject = "Meilleurs voeux 2007!" corps = "Cher Monsieur" & Chr(13) & Chr(13) corps = corps & "Meilleurs voeux 2008" msg.Body = corps msg.Attachments.Add Source:="c:mail" msg.Send End Sub
ca me donne une erreur a la troisième ligne: erreur d'execution 424 objet requis
merci de votre aide
Bonjour nordik78,
L'erreur est ici :
Set olap = CreateObject("Outlook.Application")
Set msg = olapp.CreateItem(olMailItem)
olap <> olapp
Corto
Bonjour,
Dans l'interface VBA, Outils/Référence Microsoft Outlook xx
JB
On 12 juin, 21:53, nordi...@hotmail.com wrote:
bonjour, je suis un débutant en vb et j'aurais besoin d'envoyer un
mail automatique à chaque jour. J'utilise excel et j'ai essayé ca:
Sub a()
Dim msg As MailItem
Set olap = CreateObject("Outlook.Application")
Set msg = olapp.CreateItem(olMailItem)
msg.To = "x...@hotmail.com"
msg.Subject = "Meilleurs voeux 2007!"
corps = "Cher Monsieur" & Chr(13) & Chr(13)
corps = corps & "Meilleurs voeux 2008"
msg.Body = corps
msg.Attachments.Add Source:="c:mail"
msg.Send
End Sub
ca me donne une erreur a la troisième ligne: erreur d'execution 424
objet requis
Set olap = CreateObject("Outlook.Application") Set msg = olapp.CreateItem(olMailItem) olap <> olapp
Corto
Bonjour,
Dans l'interface VBA, Outils/Référence Microsoft Outlook xx JB
On 12 juin, 21:53, wrote:
bonjour, je suis un débutant en vb et j'aurais besoin d'envoyer un mail automatique à chaque jour. J'utilise excel et j'ai essayé ca:
Sub a() Dim msg As MailItem Set olap = CreateObject("Outlook.Application") Set msg = olapp.CreateItem(olMailItem) msg.To = "" msg.Subject = "Meilleurs voeux 2007!" corps = "Cher Monsieur" & Chr(13) & Chr(13) corps = corps & "Meilleurs voeux 2008" msg.Body = corps msg.Attachments.Add Source:="c:mail" msg.Send End Sub
ca me donne une erreur a la troisième ligne: erreur d'execution 424 objet requis
merci de votre aide
nordik78
merci ca fonctionne maintenant mais je ne vois pas comment le mettre pour qu'il s'execute automatiquement?
merci ca fonctionne maintenant mais je ne vois pas comment le mettre
pour qu'il s'execute automatiquement?
