routine pour outlook

J'ai oublié de préciser que je travaille avec access et
outlook.

-----Message d'origine-----
Bonjour à tous,

J'ai un petit problème, j'ai créé une base de données
avec des adresses e-mails. Et je dois créer une routine
qui envoie automatique un message avec une grille
horaire

et ceci tout les mois.
J'ai déjà trouvé une partie de la solution mais il reste
l'automatisation sans devoir passer par le formulaire
pour cliquer sur le bouton "envoyer".
Croyez-vous cela possible si oui comment ?
Je suppose que je dois créer un test sur la date de
l'ordinateur mais avec quel programme ?

Bon si vous avez une solution envoyer là moi
merci d'avance
Nadine
.

Bonjour,

Tu ne précises pas ta version de windows ni celle d'outlook ?

Voici une solution que j'ai postée sur un forum voisin il y a peu de temps,
et qui envoyait le message à partir des e-mail listés dans un fichier texte.

Le fichier c:fichier.txt doit exister bien évidemment, avec des adresses mail valides, les unes
sous les autres.

Option Explicit

Sub PublipostageCDO()
On Error Resume Next
Dim txtLine As String
Dim LeFichier As String
Dim F As Integer

' Déclaration tardive ("Late Binding")
Dim CDO_Message As Object

LeFichier = "c:fichier.txt"
F = FreeFile
Open LeFichier For Input As #F
Do While Not EOF(F)
Line Input #F, txtLine
If InStr(1, txtLine, "@") > 1 Then

With CreateObject("CDO.Message")

.To = txtLine
.from = """Emetteur""<emetteur@domaine.com>"
.Subject = "L'objet du message CDO"
.TextBody = "Le Corps du message CDO"
'.AddAttachment ("c:fichier.txt")
.Send
End With

End If
Loop
Close #F
Set CDO_Message = Nothing
End Sub

Ce code pouvait s'exécuter depuis Outlook, sans avoir besoin d'Access.
A Adapter.
Sinon, il fonctionne depuis access, excécuter le code depuis une macro,
et dans le planificateur de tâches, lancer la base avec le paramètre /X "nomdelamacro"

D'autres solutions sur mon site, rubrique Outlook.
Si temps de réaction trop long depuis access, faire des déclarations "précoces"
en référençant la bibiothèque CDO.

--
à+
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Access Memorandum : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------

Merci beaucoup Arnaud j'essaye cela, ma version de
windows est win xp avec un office 2000.
nadine

-----Message d'origine-----
Bonjour,

Tu ne précises pas ta version de windows ni celle
d'outlook ?

Voici une solution que j'ai postée sur un forum voisin
il y a peu de temps,

et qui envoyait le message à partir des e-mail listés
dans un fichier texte.

Le fichier c:fichier.txt doit exister bien évidemment,
avec des adresses mail valides, les unes

sous les autres.

Option Explicit

Sub PublipostageCDO()
On Error Resume Next
Dim txtLine As String
Dim LeFichier As String
Dim F As Integer

' Déclaration tardive ("Late Binding")
Dim CDO_Message As Object

LeFichier = "c:fichier.txt"
F = FreeFile
Open LeFichier For Input As #F
Do While Not EOF(F)
Line Input #F, txtLine
If InStr(1, txtLine, "@") > 1 Then

With CreateObject("CDO.Message")

.To = txtLine
.from = """Emetteur""<emetteur@domaine.com>"
.Subject = "L'objet du message CDO"
.TextBody = "Le Corps du message CDO"
'.AddAttachment ("c:fichier.txt")
.Send
End With

End If
Loop
Close #F
Set CDO_Message = Nothing
End Sub

Ce code pouvait s'exécuter depuis Outlook, sans avoir
besoin d'Access.

A Adapter.
Sinon, il fonctionne depuis access, excécuter le code
depuis une macro,

et dans le planificateur de tâches, lancer la base avec
le paramètre /X "nomdelamacro"

D'autres solutions sur mon site, rubrique Outlook.
Si temps de réaction trop long depuis access, faire des
déclarations "précoces"

en référençant la bibiothèque CDO.

--
à+
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Access Memorandum : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------


.