Bonjour à tous,
Je rencontre actuellement un problème d'envoi de mail via publipostage sous word 2003 qui me rends   .
Base en access 2003
 
Dans ma base Access se trouve une table temporaire me servant de source pour le publipostage ("EDITION_SORTIE", le champ "MAIL" contient des adresse mail du type :"toto@toto.com" )
 
Dans mon document word j'ai le code suivant :
 
Sub AutoOpen()
'Envoi par mail des confirmation d'inscription
ActiveDocument.MailMerge.OpenDataSource Name:="C:\SPPS\spps2003.mdb", _
ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\SPPS\spps2004.mdb;Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=5;Jet OLEDB:Database " _
, SQLStatement:="SELECT * FROM `EDITION_SORTIE`", SQLStatement1:="", _
SubType:=wdMergeSubTypeAccess
With ActiveDocument.MailMerge
.MailAddressFieldName = .DataSource.DataFields("MAIL" ).Value
.MailSubject = "Confirmation d'inscription"
.Destination = wdSendToEmail
.SuppressBlankLines = True
.Execute
End With
End Sub
 
J'ai une erreur lors du .Execute :
"Erreur d'execution 5630 :
Publipostage ou télécopie impossibles sans adresse valides. Cliquer sur le bouton configurer pour sélectionner un champ de messagerie"
 
Je ne comprends pas cette erreur car dans mon ".MailAddressFieldName " il me retourne bien une adresse mail valide (toto@toto.com)...
Le document de fusion, sans passer par la macro me renvoi bien les différentes données... Quelqu'un aurait il une solution pour ce bug ?
 
Merci ;o)