Bonjour à tous.

Voila j'aimerais dans un formulaire Word à remplir insérer un lien hypertexte pour envoyer un courriel.

jusque là ca va je l'ai fait.

Mais j'aimerais que quand les personnes finissent de remplir le formulaire, elles cliquent sur le lien pour ouvrir un mail mais j'aimerais que dans le mail le fichier word en question soit joint.

1er question : est ce que c'est possible?

2e question : si oui, comment faire?

Merci d'avance

Bonsoir doudou_ninie,

Regarde la réponse ici :

http://faqword.free.fr/articles.php?lng=fr&pg=1843

Merci pour ton lien mai ca ne fonctionne pas

voila le code que j'ai entré :

Sub FollowLink()
Selection.Hyperlinks(1).Follow

Dim ol As Object, myItem As Object
Set ol = CreateObject("lotusnotes.application")

Set myItem = ol.CreateItem(olMailItem)

myItem.To = "supportliaisons@XXX.com"
myItem.Subject = "Formulaire"
Set myAttachments = myItem.Attachments
myAttachments.Add ActiveDocument.FullName

myItem.Send

Set ol = Nothing

End Sub

Et voila le message d'erreur :http://www.hebergementimages.com/images/1210770327_erreurvba.JPG

Merci de m'aider car c'est pour mon boulot et c'est assez urgent

doudou_ninie a écrit :

Merci pour ton lien mai ca ne fonctionne pas

voila le code que j'ai entré :

Sub FollowLink()
Selection.Hyperlinks(1).Follow

Dim ol As Object, myItem As Object
Set ol = CreateObject("Notes.NotesSession")

Set myItem = ol.CreateItem(olMailItem)

myItem.To = "supportliaisons@XXX.com"
myItem.Subject = "Formulaire"
Set myAttachments = myItem.Attachments
myAttachments.Add ActiveDocument.FullName

myItem.Send

Set ol = Nothing

End Sub

Et voila le message d'erreur :http://www.hebergementimages.com/images/1210770327_erreurvba.JPG

Merci de m'aider car c'est pour mon boulot et c'est assez urgent

Salut

la syntaxe est différente avec Lotus ; rien à voir avec outlook (mais j'ai pas Lotus sur ce poste, et de toute façon je le connais pas...)

pour commencer, tu peux déja essayer avec ma correction (en rouge), mais à mon avis ça va couiner un peu plus loin...(on aura déja avancé !! - reviens ici et on fera ça pas à pas)

rien n'a changé...

pour l'instant c'est comme ci je n'avais que cette partie du code :
Sub FollowLink()
Selection.Hyperlinks(1).Follow
End Sub

Il ouvre un nouveau mémo Lotus mais pas de pièce jointe.

Voilà apparement la ligne qui pose problème :
Set myItem = ol.CreateItem(olMailItem)

Merci pour ton aide.

Bonsoir,

Effectivement tu n'avais pas précisé qu'il s'agissait de Lotus !!

Personnellement, je ne connais pas Lotus... Tu peux peut être t'aider de ce lien :

http://www.excel-downloads.com/forum/87786-envoi-mail-avec-excel-vba-vers-lotus-6-5-a.html

finalement j'ai réussi à faire quelque chose mais si le document n'est pas enregistré avant d'être envoyé, je le recoit vierge.
il n'envoie pas le document "actif".

voici le code :

Sub FollowLink()

Dim Subject As String
Dim Attachment As String
Dim AttachmentName As String
Dim Recipient As String
Dim ccRecipient As String
Dim bccRecipient As String
Dim BodyText As String
Dim SaveIt As Boolean
Dim Password As String

Dim Maildb As Object 'La base des mails
Dim UserName As String 'Le nom d'utilisateur
Dim MailDbName As String 'Le nom de la base des mails
Dim MailDoc As Object 'Le mail
Dim AttachME As Object 'L'objet pièce jointe en RTF
Dim Session As Object 'La session Notes
Dim EmbedObj As Object 'L'objet incorporé

Subject = "formulaire"
Dim docActive As Document

Set docActive = ActiveDocument

Attachment = docActive.FullName
AttachmentName = docActive.Name


Recipient = "supportliaisons@XXX.com"

BodyText = "Bonjour."
SaveIt = False

'Crée une session notes
Set Session = CreateObject("Notes.NotesSession")

'*** Cette ligne est réservée aux versions 5.x et supérieur : ***
'' Session.Initialize (Password)

'Récupère le nom d'utilisateur et crée le nom de la base des mails
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"

'Ouvre la base des mails
Set Maildb = Session.GETDATABASE("", MailDbName)
If Not Maildb.IsOpen Then Maildb.OPENMAIL

'Paramètre le mail à envoyer
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
MailDoc.sendto = Recipient
MailDoc.CopyTo = ccRecipient
MailDoc.BlindCopyTo = bccRecipient
MailDoc.Subject = Subject
MailDoc.Body = BodyText
MailDoc.SAVEMESSAGEONSEND = SaveIt

'Prend en compte les pièces jointes
If Attachment <> "" Then
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
MailDoc.CREATERICHTEXTITEM ("AttachmentName")
End If

'Envoie le mail
MailDoc.PostedDate = Now()
MailDoc.SEND 0, Recipient

Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
End Sub

Merci

doudou_ninie a écrit :

finalement j'ai réussi à faire quelque chose mais si le document n'est pas enregistré avant d'être envoyé, je le recoit vierge.
il n'envoie pas le document "actif".

voici le code :

Sub FollowLink()

Dim Subject As String
Dim Attachment As String
Dim AttachmentName As String
Dim Recipient As String
Dim ccRecipient As String
Dim bccRecipient As String
Dim BodyText As String
Dim SaveIt As Boolean
Dim Password As String

Dim Maildb As Object 'La base des mails
Dim UserName As String 'Le nom d'utilisateur
Dim MailDbName As String 'Le nom de la base des mails
Dim MailDoc As Object 'Le mail
Dim AttachME As Object 'L'objet pièce jointe en RTF
Dim Session As Object 'La session Notes
Dim EmbedObj As Object 'L'objet incorporé

Subject = "formulaire"
Dim docActive As Document

Set docActive = ActiveDocument

Attachment = docActive.FullName
AttachmentName = docActive.Name


Recipient = "supportliaisons@XXX.com"

BodyText = "Bonjour."
SaveIt = true
'Crée une session notes
Set Session = CreateObject("Notes.NotesSession")

'*** Cette ligne est réservée aux versions 5.x et supérieur : ***
'' Session.Initialize (Password)

'Récupère le nom d'utilisateur et crée le nom de la base des mails
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"

'Ouvre la base des mails
Set Maildb = Session.GETDATABASE("", MailDbName)
If Not Maildb.IsOpen Then Maildb.OPENMAIL

'Paramètre le mail à envoyer
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
MailDoc.sendto = Recipient
MailDoc.CopyTo = ccRecipient
MailDoc.BlindCopyTo = bccRecipient
MailDoc.Subject = Subject
MailDoc.Body = BodyText
MailDoc.SAVEMESSAGEONSEND = SaveIt

'Prend en compte les pièces jointes
If Attachment <> "" Then
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
MailDoc.CREATERICHTEXTITEM ("AttachmentName")
End If

'Envoie le mail
MailDoc.PostedDate = Now()
MailDoc.SEND 0, Recipient

Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
End Sub

Merci

et la, ça donne quoi ?