enregister puis envoyer

[bil bool]

Bonjour à tous

Voilà ce que j'essaie de faire, évidement ca ne marche pas !
J'ai creer un formulaire pour des demandes d'intervention de maintenance, jusque là ça va.
Mais une fois la fiche remplie j'aimerai que grace à un bouton au bas du document le demandeur ferme le document et le mél directement à deux personnes, le principal interessé et une copie à une autre personne.
Suis-je assez clair ?
Merci, la bonne journée...

 

[sigma]

Le forum, bil boll

J'ai fait il y a peu un fichier pour la maintenance, si tu es intéressé je peux te l'envoyer,tu devrais facilement adapter ce bout de code.

à coller dans un module, en supposant que le destinataire et la copie soit toujours les mêmes.

vPath = ActiveWorkbook.Path
vFile = ActiveWorkbook.Name

'l'objet du mail
vSubject = Range('a2')

'le destinataire
vTo = ' adresse mail '

vMessage = ' ''
vFileToAttach = vPath & '\\' & vFile
vFileDesc = Range('e4') & ' ' & Range('f4')


'Ouvre un nouveau message vide via Outlook
Set myol = New Outlook.Application
Set myitem = myol.CreateItem(olMailItem)
myitem.To = vTo
'copie du mail
myitem.CC = ' adresse mail'

myitem.Subject = vSubject
myitem.Body = vMessage

Set myAttachments = myitem.Attachments

If vFileToAttach <> '' Then
myAttachments.Add vFileToAttach, olByValue, , vFileDesc
End If
' demande si le mail doit être envoyé
'myitem.Display ':- if you want outlook to display the mail message for you to check/add to before you send
'or use
'envoie le mail directement
myitem.Send ':-if you just want your application to send email automatically.

End Sub

 

[bil bool]

Merci Sigma, oui pour ton fichier je suis intéressé
si tu peux me l'envoyer ...super !

 

[sigma]

re,

a ton service bil boll.

le voici.

A+

 

[sigma]

re,
[file name=maintenance.zip size=39372]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/maintenance.zip[/file]

 

[bil bool]

ok, mais j'ai une erreur (ca ne m'étonne pas !)

1) J'ai creer une nouvelle macro et copier le code dans un nouveau module mais j'ai message d'erreur en rapport avec outlook.
(copie d'ecran en piece jointe)
2) pourrai-je piloter cette macro à partir d'un bouton de comande ?

++

 

[sigma]

re,
regarde le fichier pour ton point 2, la réponse est à l'intérieur.

A+