[DTS] Email

Version imprimable

17/06/2004, 13h13
nmerydem

[DTS] Email

est'il possible de faire envoyer un email par un package DTS?
Sinon, comment faire...

pour expliquer un peu plus le pb, j'ai package DTS qui deplace des donnes d'une base a une autre, il est execute automatiquement tout les jours, et pour chaque donne insere, je voudrais qu'il envoie un mail au gars concerne (adresse email dans les donnes)..

Voila, merki de votre aide

j'avance un pue dans mon chmilblik...
donc, j'ai insere le code suivant dans mon code activeX

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
dim strEmailBody 
				dim objMail 
 
				const fsoForWriting = 2 
 
				set objMail = CreateObject("CDONTS.NewMail") 
 
				'Create the body of the email 
				strEmailBody = "Good morning," & "Merry" & _ 
				"Please find attached this months sales " & _ 
				"reports. If there are any problems, then " & _ 
				"please email the sales department." 
 
				' send it 
				objMail.To = "ToMail"
				objMail.Subject = "Starters or Leavers form" 
				objMail.Importance = 2 'High 
				objMail.Body = strEmailBody 
				objMail.Send

mais bon, ca ne me donne pas d'erreur, mais ca n'envoie pas de mail...

qq aurait une idee... ?

bon, ben voila le code qui marche :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Set Mail = CreateObject("CDO.Message") 
 
  Mail.From = "mailFrom"
 
  Mail.To = "mailTo"
  Mail.Subject = "mySubject"
  Mail.HTMLBody= "myBody"
  Mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mySmtp"
  Mail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
  Mail.Configuration.Fields.Update 
  Mail.Send 
  Main = DTSTransformStat_OK
 
 Set Mail = Nothing