bordereau routage

[cheva02]

je fais saisir un formulaire . Une fois saisi celui-ci doit être envoyé à un destinataire dont le nom sera dans le formulaire lui-même (voire plusieurs destinaires) .cf exemple joint

Comment m'y prendre ?(avec Fichier envoyer vers il faut saisir une adresse qui reste permanente) .

Merci de votre aide [file name=essai bordereau automatique_20050315170204.zip size=2503]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai bordereau automatique_20050315170204.zip[/file]

 

[tontoncarton]

bonjour ,
voila 🙂

Set TheOLapp = CreateObject('Outlook.Application')
Set TheOLitem = TheOLapp.CreateItem(olMailItem)

With TheOLitem

fij = chemin du fichier joint

.Application.Session.Logon
.To = Sheets('CcMail').Range('A1') 'modifie le range
.CC = Sheets('CcMail').Range('A2') & ';' ' &'ici tu peux ajouter des destinataires
.Importance = olImportanceHigh
.Subject = UserForm1.TextBox1 ' par exemple
.Body = UserForm10.TextBox2 ' exemple
.Attachments.Add Fij

.Categories = 'Daily-Report'
.OriginatorDeliveryReportRequested = True
.ReadReceiptRequested = True
.Display
'.Save
'.Send
End With

Set TheOLapp = Nothing
Set TheOLitem = Nothing
End With

Voila je pense que c ce que tu voulais

ps : ce code marche avec Outlook