Bonjour,
Je cherche une piste pour utiliser une DB afin de gérer une liste environ
600 adresses mail et expedier des mails.
Actuellement je passe par l'extraction manuelle des adresses, faire un
fichier csv, vider le carnet d'adresse d'OE et importer la nouvelle liste.
Un peu pénible, et difficile à faire faire par un secrétariat.
Des collègues "bien au courant" m'ont déconseillé de me lancer dans VB pour
ce projet !
Avez-vous des conseils ?
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
www.eztree-msdn.com \(Laurent Jordi\) Enlever le s à infos pour me contacter par mail
Salut
C'est une soluce mais la sécurité va t'embêter un peu..
Dim OLApp As New Outlook.Application Dim M As Outlook.MailItem Dim destinataire As String
'*************************************** '**** Préparation du Mail '*************************************** destinataires = ";"'LE OU LES DESTINATAIRES DU MESSAGE Set M = OLApp.CreateItem(olMailItem) M.Subject = "La Rainette, Statistiques" M.CC = destinataires M.Body = "Blablabla" M.Attachments.Add FileName (Si fichiers attachés) '*************************************** '**** Envoi du mail '*************************************** M.Send
@+
LJ
"FORUMJM" @skynet.be> a écrit dans le message de news:40a72fc2$0$9524$
Bonjour, Je cherche une piste pour utiliser une DB afin de gérer une liste environ 600 adresses mail et expedier des mails. Actuellement je passe par l'extraction manuelle des adresses, faire un fichier csv, vider le carnet d'adresse d'OE et importer la nouvelle liste. Un peu pénible, et difficile à faire faire par un secrétariat. Des collègues "bien au courant" m'ont déconseillé de me lancer dans VB pour
ce projet ! Avez-vous des conseils ?
-- Merci Corrigez mon adresse @_@
Salut
C'est une soluce mais la sécurité va t'embêter un peu..
Dim OLApp As New Outlook.Application
Dim M As Outlook.MailItem
Dim destinataire As String
'***************************************
'**** Préparation du Mail
'***************************************
destinataires = "tot@1.com;tit@1.com"'LE OU LES DESTINATAIRES DU
MESSAGE
Set M = OLApp.CreateItem(olMailItem)
M.Subject = "La Rainette, Statistiques"
M.CC = destinataires
M.Body = "Blablabla"
M.Attachments.Add FileName (Si fichiers attachés)
'***************************************
'**** Envoi du mail
'***************************************
M.Send
@+
LJ
"FORUMJM" <newsjm@_@skynet.be> a écrit dans le message de
news:40a72fc2$0$9524$a0ced6e1@news.skynet.be...
Bonjour,
Je cherche une piste pour utiliser une DB afin de gérer une liste environ
600 adresses mail et expedier des mails.
Actuellement je passe par l'extraction manuelle des adresses, faire un
fichier csv, vider le carnet d'adresse d'OE et importer la nouvelle liste.
Un peu pénible, et difficile à faire faire par un secrétariat.
Des collègues "bien au courant" m'ont déconseillé de me lancer dans VB
pour
C'est une soluce mais la sécurité va t'embêter un peu..
Dim OLApp As New Outlook.Application Dim M As Outlook.MailItem Dim destinataire As String
'*************************************** '**** Préparation du Mail '*************************************** destinataires = ";"'LE OU LES DESTINATAIRES DU MESSAGE Set M = OLApp.CreateItem(olMailItem) M.Subject = "La Rainette, Statistiques" M.CC = destinataires M.Body = "Blablabla" M.Attachments.Add FileName (Si fichiers attachés) '*************************************** '**** Envoi du mail '*************************************** M.Send
@+
LJ
"FORUMJM" @skynet.be> a écrit dans le message de news:40a72fc2$0$9524$
Bonjour, Je cherche une piste pour utiliser une DB afin de gérer une liste environ 600 adresses mail et expedier des mails. Actuellement je passe par l'extraction manuelle des adresses, faire un fichier csv, vider le carnet d'adresse d'OE et importer la nouvelle liste. Un peu pénible, et difficile à faire faire par un secrétariat. Des collègues "bien au courant" m'ont déconseillé de me lancer dans VB pour
