piece jointe à mettre dans outlook [À faire]

**Tierisa** · 21/10/2003, 12h47

oui le formulaire est relié à la table "n°expertise". Le champ dans le lequel se trouve le lien hypertexte s'appelle "lien"

**Tierisa** · 21/10/2003, 12h47

et j'oubliais: le formulaire s'appelle "expertise"

**Admin** · 21/10/2003, 12h56

ok essaye ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonMessage.Attachements.Add (forms!expertise!lien.Text)

**Admin** · 21/10/2003, 12h56

je crois que c'est ton champs hypertexte qui te complique la vie.

tu ne peut pas le mettre en champ texte ?

**Admin** · 21/10/2003, 12h58

Trouvé !!!!

si tu veux gardé ton lien tu met ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonMessage.Attachements.Add (Forms!expertise!lien.Hyperlink.Address)

**Tierisa** · 21/10/2003, 13h33

désolé d'être pénible mais cette dernière manip ne fonctionne pas et la précédente en mettant le champ texte à la place ne fonctionne pas non plus.

**Admin** · 21/10/2003, 13h35

la tu m'etonne ca marche chez moi avec un champ hypertexte !

ok, tu as quel message d'erreur ?

**Tierisa** · 21/10/2003, 13h37

sur la derniere manip j'ai "propriété ou méthode non gérée par cet objet"

**Tierisa** · 21/10/2003, 13h38

voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
MonMessage.To = "thierry.consales@saint-gobain.com"
MonMessage.Subject = "expertise"
MonMessage.Attachements.Add (Forms!expertise!lien.Hyperlink.Address)
MonMessage.Send
MsgBox mail
Set MonOutlook = Nothing

**Admin** · 21/10/2003, 13h41

tu as bien un champ texte sur ton formulaire qui reprend ton champ (propriété source controle) ?

**Tierisa** · 21/10/2003, 13h43

oui. quand tu construis ton formulaire j'ai fais glisser le champ lien dedans. Donc c'est une zone de texte avec line hypertexte en type de données (casse tête hein!)

**Admin** · 21/10/2003, 13h44

ok pour tester mes un nouveau bouton sur ton formulaire est fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Me.lien.Hyperlink.Address

**Tierisa** · 21/10/2003, 13h48

ça, ça marche, il affiche le chemin du lien

**Tierisa** · 21/10/2003, 13h50

veux tu que je t'envoie mon appli pour que tu vois mieux? (tu ne pourras pas ouvrir les fichiers hypertextes puiqu'ils sont sur mon HD)

**Admin** · 21/10/2003, 14h43

peux tu me dire ou ce trouve ton code d'envoi outlook

**Admin** · 21/10/2003, 14h55

des fois j'ai envie de crier très fort !

alors la solution de tout :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonMessage.Attachments.Add (Forms!expertise!lien.Hyperlink.Address)

et non

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonMessage.Attachements.Add (Forms!expertise!lien.Hyperlink.Address)

et oui, 1 E en trop à attachments....

j'en profite pour faire dire qu'il vaut mieux passer par des variables temporaires car lorsque l'on à un soucis comme celui ci, on ne sait meme pas d'ou vient le problème.

on aurait vu tout de suite si on avait fais ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
dim monfichier as string
 
monfichier =Forms!expertise!lien.Hyperlink.Address
MonMessage.Attachments.Add (monfichier)

**Tierisa** · 21/10/2003, 14h56

sur ce que je t'ai donné, il n'y a pas de bouton pour l'envoi ni de code rentré. celle ci est une appli de sauvegarde. je te la renvoie avec ce qu'il faut. désolé