Insertion chemin fichier dans outlook 2003

Le 23/08/2009 à 22:23

Bonsoir.

Je n'arrive pas à faire une macro pour que le chemin (sur un réseau) du fichier excel actif soit envoyé en lien hypertexte dans un message outlook 2003.

J'arrive à insérer dans le corps du message le chemin complet mais ce n'est pas un lien hypertexte.

Le but étant d'envoyer à plusieurs collègues le lien du fichier modifié.

Merci pour votre aide.

Ced

Le 24/08/2009 à 02:58

bonjour cedsevper, forum,

Peut-on voir la macro qui envoie ce lien?

Ça permettra une aide plus facile.

Le 24/08/2009 à 21:46

Bonsoir,

je n'ai pas la macro sur moi (au bureaul où l'accès au forum est interdit !), je post dès demain soir.

Merci.

Le 30/08/2009 à 21:37

Bonsoir à tous et désolé pour le retard.

Voici donc la macro permettant d'envoyer un mail via outlook 2003 en notant le chemin complet du fichier mais pas en lien hypertexte:

dim outlook, message as object

dim nom as string

nom=thisworkbook.fullname

set outlook=createobject("outlook.application")

set message=outlook.createitem(0)

message.to="xxxxx@yyyy.com;zzzz@yyyy.com"

message.subject="blablabla" & mid(activewokbook.name,1,16)

message.body="blablabla" & vblf & vblf & nom

message.send

Si cela peut inspirer une bonne âme, merci.

Le 31/08/2009 à 00:32

Bonjour cedsevper, forum,

cedsevper a écrit :
J'arrive à insérer dans le corps du message le chemin complet mais ce n'est pas un lien hypertexte.

Et où est-il ce chemin complet dans ton code?

Le 31/08/2009 à 02:30

Salut le forum

Une méthode de faire, donner par SilkyRoad (La procédure ne se voit pas à l'écran)

Sub liensDansCorpsDuMessage_CDO()
'Adapté de : http://support.microsoft.com/default.aspx?kbid=286430
'Auteur : SilkyRoad
Dim iMsg As Object, iConf As Object
Dim strHTML As String

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

strHTML = ""
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "Bonjour , <BR>Découvrez Microsoft Office sur le site Developpez<BR><BR>"
strHTML = strHTML & "<A href='" & ThisWorkbook.FullName & "'>" & ThisWorkbook.FullName & "</A>"

strHTML = strHTML & "<BR><BR>Cordialement<BR>" & Environ("UserName") & "<BR>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & ""

With iMsg
    Set .Configuration = iConf
    .To = "a@abc.com,b@abc.com" 'Renvoie une erreur si l'adresse est non valide
    '.From = "monemail@abc.com"
    .Subject = "Test Envoi liens par mail"
    .HTMLBody = strHTML
    .Send
End With
MsgBox "Courrier envoyé !"
End Sub

Mytå

Le 31/08/2009 à 18:50

bonjour et merci pour votre intérêt à mon problème.

Pour VBAnews, le chemin complet est à la 3ème ligne (nom=thisworkbook.fullname)

Pour Usb512, la méthode CDO ne fonctionne pas, je suis dans un réseau d'entreprise et je ne connais pas les paramètres de messagerie

Si qqu'un à une solution je suis preneur.

Le 31/08/2009 à 18:59

Re le forum

cedsevper a écrit :
Pour Usb512, la méthode CDO ne fonctionne pas, je suis dans un réseau d'entreprise et je ne connais pas les paramètres de messagerie.

Quel est l'erreur renvoyer par mon code....

Mytå

Le 01/09/2009 à 08:57

bonjour usb512,

J'ai le message suivant:

"La valeur de configuration sendusing est non valide"

J'ai lu sur des forums que la méthode CDO était plus réservé aux particuliers ou aux power users, c'est pour cela que je veux rester avec outlook 2003.

Merci pour ton aide

Le 05/09/2009 à 12:08

Bonjour tout le forum et merci à ceux qui se sont arrêtés pour moi.

J'ai trouvé la réponse tout seul, il faut mettre le message en texte brut et O miracle cela fonctionne.