R17040 Envoyer un e-mail depuis un formulaire de rendez-vous
Publié par angel le Mercredi 18 juillet 2007 11:49
Pour créer un formulaire personnalisé de type rendez-vous, allez sous outils/formulaire/créer un formulaire..., sélectionner le formulaire personnalisé de type "Rendez-vous".

Pour afficher la page de code vbs, allez sous Formulaire/afficher le code . Utiliser ensuite la fonction vbs suivante pour envoyer votre e-mail :

function SendMailConfirmation(SubjectMailIs, BodyMailIs, ToMailIs)
 
'By Angel 18/7/2007
Dim objApp 'As Outlook.Application
 
Set objApp = CreateObject("Outlook.Application")
Set objMail = objApp.CreateItem(0)
With objMail
.Subject = SubjectMailIs
.Body = BodyMailIs
.To = ToMailIs
.Send
End With
end function


Une fois le formulaire fini, il vous permettra de réaliser un rendez-vous sur votre calendrier qui aura pour effet d'envoyer un e-mail.