> Tous les forums > Forum Bureautique
 Lien hypertexte mailto avec pieces jointes
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
doudou_ninie
  Posté le 07/05/2008 @ 21:51 
Aller en bas de la page 
Petite astucienne

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

Publicité
doudou_ninie
 Posté le 09/05/2008 à 14:48 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne
Y a t'il quelqu'un pour m'aider SVP?
doudou_ninie
 Posté le 13/05/2008 à 17:22 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne
Toujours rien?
m@rina
 Posté le 13/05/2008 à 22:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Bonsoir doudou_ninie,

Regarde la réponse ici :

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

doudou_ninie
 Posté le 14/05/2008 à 15:06 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

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



Modifié par doudou_ninie le 14/05/2008 15:06
Bérylion
 Posté le 14/05/2008 à 15:52 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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)

Bérylion
 Posté le 14/05/2008 à 15:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien



parti trop vite !!

vérifie aussi que la référence à Lotus est bien cochée dans VBE (ALT+F11 ; outils/références... ; et tu cherches la case correspondante)
doudou_ninie
 Posté le 14/05/2008 à 17:21 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

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.

m@rina
 Posté le 14/05/2008 à 21:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

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

Publicité
doudou_ninie
 Posté le 14/05/2008 à 21:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

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



Modifié par doudou_ninie le 14/05/2008 21:11
Bérylion
 Posté le 15/05/2008 à 09:35 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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 ?

doudou_ninie
 Posté le 15/05/2008 à 15:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne
ca ne change rien
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
Publipostage avancé avec plusieurs pieces jointes distinctes
lien hypertexte avec writer
lien hypertexte avec affichage des résultats
lien hypertexte avec messagerie avec INDEX
Lien hypertexte avec un dociument PDF PW point
ouvrir un .exe avec un lien hypertexte
Pieces jointes transformées en .dat avec outlook07
barre outil avec lien hypertexte sous excel
ouverture pieces jointes avec outlook express
problème avec transférer des pièces jointes
Plus de sujets relatifs à Lien hypertexte mailto avec pieces jointes
 > Tous les forums > Forum Bureautique