× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > 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 !


Les bons plans du moment PC Astuces

Tous les Bons Plans
949,99 €PC Portable 15,6 pouces Lenovo Legion Y540 (Core i5, 16 Go, SSD 512 Go, RTX 2060 6 Go) à 949,99 €
Valable jusqu'au 12 Juillet

Cdiscount fait une promotion sur le PC portable Lenovo Legion Y540 (15IRH) dédié aux joueurs qui passe à 949,99 € au lieu de 1400 €. Ce PC portable très bien équipé  possède un écran 15,6 pouces LED Full HD, un processeur Intel Core i5-9300H, 16 Go de RAM, un SSD de 512 Go et une carte graphique GeForce RTX 2060 6 Go dédiée qui avalera tous vos jeux sans broncher. Windows n'est pas fourni, vous pouvez le trouver en OEM à 14,90 €


> Voir l'offre
402,99 €SSD SanDisk Ultra 3D 4 To à 402,99 € livré
Valable jusqu'au 14 Juillet

Amazon Espagne fait une belle promotion sur le SSD SanDisk Ultra 3D d'une capacité de 4 To qui passe à 400 €. Comptez 4,64 € pour la livraison en France soit unt toal de 404,64 € livré. On le trouve ailleurs autour de 510 €. Une bonne affaire pour ce SSD performant qui offre des débits de 560 Mo/s en lecture et 530 Mo/s en écriture. Cette version est garantie 3 ans.


> Voir l'offre
99,66 €SSD Samsung 860 QVO 1 To à 99,66 €
Valable jusqu'au 14 Juillet

Amazon fait une promotion sur le SSD Samsung 860 QVO 1 To qui passe à 99,66 € livré gratuitement. Ce SSD offre des vitesses de 550 Mo/s en lecture et 520 Mo/s en écriture. Il est garanti 3 ans. On le trouve ailleurs à plus de 112 €.


> Voir l'offre

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