1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 : 22 : 23 : 24 : 25 : 26 : 27 : 28 : 29 : 30 : 31 : 32 : 33 : 34 : 35 : 36 : 37 : 38 : 39 : 40 : 41 : 42 : 43 : 44 : 45 : 46 : 47 : 48 : 49 :
0 alors Les 'perspectives ne le couraient pas, ne commencent pas du code Placer l'oOutlookApp = le CreateObject (« Outlook.Application ») bStarted = rectifier Finir si 'Créer un nouveau mailitem Placer l'oItem = l'oOutlookApp.CreateItem (l'olMailItem) Avec l'oItem 'Placer le destinataire pour le nouvel email S'infoReqMod.ReqInfoData.RptOpt = 1 puis . = « [email protected] » ElseIf infoReqMod.ReqInfoData.RptOpt = 2 puis . = « MÉTRIQUE ET TECHNOLOGIE de DL KNA SSC A/P » ElseIf infoReqMod.ReqInfoData.RptOpt = 3 puis . = « [email protected] » Finir si 'Placer le destinataire pour une copie .CC = « [email protected] » 'Placer le sujet . Sujet = « demande de l'information » 'Le contenu du document est employé comme corps pour l'email . Corps = infoReqMod.CreateBody S'infoReqMod.attachments.blnHaveAttach = rectifient alors Obscurcir I comme nombre entier Pour I = 0 à infoReqMod.attachments.intCnt - 1 .attachments. Ajouter infoReqMod.attachments.strAttach (i) Après Finir si . Envoyer Finir avec Si bStarted alors 'Si nous commencions des perspectives à partir de code, puis étroit il oOutlookApp.Quit Finir si