Bonjour à tous,
j'ai l'habitude d'envoyer automatiquement par mail(CDO) de excel des textes contenant un lien Hypertext vers un fichier sur le réseau.
J'ai essayé de transposer la macro sur word avec succes sans lien hypertext, et sans succes avec ce dernier :
le bug ayant lieu à la ligne .TextBody.... sur "Application.Substitute" (voir macro ci dessous)
Si vous avez une idée...
Merci d'avance pour vos réponses.
Cordialement
Frédéric
Sub envoiMailCDOlienHypertextSousWord()
Dim config As CDO.Configuration
Dim email As CDO.message
Set config = New CDO.Configuration
With config.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = CDO.cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "TOKYO"
.Update
End With
'On prépare l'envoi de Mail
Set mail = New CDO.message
With mail
Set .Configuration = config
.To = "frederic.lefred@cea.fr"
.Subject = sujet
.TextBody = "Ci joint le lien vers le fichier " & vbLf & _
'"file://" & Application.Substitute("S:\fichier.xls, " ", "%20") & vbLf & "Cordialement" & vbLf & vbLf & "FL"
.From = "gg@cea.fr"
.Send
End With
j'ai l'habitude d'envoyer automatiquement par mail(CDO) de excel des textes contenant un lien Hypertext vers un fichier sur le réseau.
J'ai essayé de transposer la macro sur word avec succes sans lien hypertext, et sans succes avec ce dernier :
le bug ayant lieu à la ligne .TextBody.... sur "Application.Substitute" (voir macro ci dessous)
Si vous avez une idée...
Merci d'avance pour vos réponses.
Cordialement
Frédéric
Sub envoiMailCDOlienHypertextSousWord()
Dim config As CDO.Configuration
Dim email As CDO.message
Set config = New CDO.Configuration
With config.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = CDO.cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "TOKYO"
.Update
End With
'On prépare l'envoi de Mail
Set mail = New CDO.message
With mail
Set .Configuration = config
.To = "frederic.lefred@cea.fr"
.Subject = sujet
.TextBody = "Ci joint le lien vers le fichier " & vbLf & _
'"file://" & Application.Substitute("S:\fichier.xls, " ", "%20") & vbLf & "Cordialement" & vbLf & vbLf & "FL"
.From = "gg@cea.fr"
.Send
End With