Créer une chaîne de caractères pour envoyer un mail à tous les destinataires d'une requête SQL

Version imprimable

Bonjour.
J'ai quelques difficultés avec PowerShell.
J'ai fait un script qui interroge une base de données.
Renvoie les adresse mails contenues dans une table.
Envoie un mail à un résultat choisi du dataset.

Code:

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
50
51
52
# Force le type d'execution
Set-ExecutionPolicy Unrestricted

Import-Module sqlps


$file = 'C:\MonRep\logShell.txt' 

$color = "#009900"
$Conn = new-object system.data.sqlclient.sqlconnection
$Conn.connectionstring = "Monserveur"
$Conn.Open()

# On interroge une vue système de SQL Server 2005
$Requete = "SELECT mail FROM MaTable"

$cmd = New-object system.data.sqlclient.SqlCommand
$cmd.connection = $conn
$cmd.commandtext = $Requete

  # Exécute la requête et retourne le nombre de lignes
$cmd.Executenonquery()

$DataAdapter = new-object System.Data.SqlClient.SQLDataAdapter($cmd)
$DataSet = new-object System.Data.DataSet
$DataAdapter.Fill($DataSet)


	$emailSmtpServer = "serveur de messagerie"
	$emailSmtpServerPort = "25"	 
	$emailFrom =  "expediteur"
	$emailTo = $dataset.tables[0].rows[0]["mail"] 
	
	
	$emailMessage = New-Object System.Net.Mail.MailMessage($emailFrom , $emailTo)
	
	$emailMessage.Subject = "Test"
	$emailMessage.Priority = "Normal"
	

	
	$emailMessage.Body = "Bonjour"

	$SMTPClient = New-Object System.Net.Mail.SmtpClient( $emailSmtpServer , $emailSmtpServerPort )
	$SMTPclient.Credentials = [System.Net.CredentialCache]::DefaultNetworkCredentials
	 
	$SMTPClient.Send( $emailMessage ) > $file

# On libére la connexion, etc.

$Conn.Close() 
read-host 'Pause !'

Mais je souhaiterai faire une concaténation de tous les mails contenus dans le dataset, logguer cette concaténation et envoyer un mail à tous les destinataires, et là, grand moment de solitude.
J'ai essayé pas mal de truc donc ça :

Code:

1
2
3
4
5
6
$emailTo = $DataSet.Tables[0].Rows[0][0]
 for ($i=0;$i -le $dataset.tables[0].rows.count;$i++)
 {
   $emailto = $emailto + "," + $dataset.tables[0].rows[i]["mail"] > $logfile
 }
Write-Host $emailto

Mail la par contre plus rien ne fonctionne...
Merci de votre aide.

05/02/2018, 18h29
69Pierre

Oups, c'est uniquement l'écriture dans le ficher de log qui ne fonctionne pas.
Pour le reste, j'ai oublié un "$".
05/02/2018, 21h58
Laurent Dardenne

Salut,
dans la boucle tu recrées le fichier à chaque itération.
05/02/2018, 22h58
69Pierre

Merci de ton aide.
Faut t-il faire un tostring avant.
Mon

Code:

$emailto = $emailto + "," + $Dataset.tables[0].rows[$i]["mail"] > $file

ne renvoie rien dans les logs.
06/02/2018, 08h44
Laurent Dardenne
Citation:

Envoyé par 69Pierre

Faut t-il faire un tostring avant.

Sur le Dataset, je ne pense pas, mais je n'ai pas de test sous la main pour confirmer.

Citation:

Envoyé par 69Pierre

Mon

Code:

$emailto = $emailto + "," + $Dataset.tables[0].rows[$i]["mail"] > $file

ne renvoie rien dans les logs.

Normal, et je ne l'ai pas vu hier soir, l'affectation dans $Emailto ne renvoi rien dans le pipeline, la syntaxe suivante permet d'affecter une valeur ET de renvoyer la valeur affectée :
Code:

1 2 3 $i=10 # affectation ($i=10) # affectation ET émission de 10 dans le pipe
Mais la construction de ta liste est à revoir je pense. par exemple la tracer une fois construite.

Avec les versions récentes de PS tu peux écrire ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 $ofs=','
[string[]]$List=($DS.tables[1].rows).Email
 
 #transforme un tableau de string en une chaine, 
 #ici on utilise le séparateur $OFS
 #comportement différent de la méthode ToString()
"$list"
#User1@T.com,User2@T.com
 
 #la même chose sans la liste intermédiaire
 #renvoi une chaine
"$(($DS.tables[1].rows).Email)"
#User1@T.com,User2@T.com

un exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
#https://blog.netnerds.net/2015/02/working-with-basic-net-datasets-in-powershell/
$dt = New-Object System.Data.Datatable
[void]$dt.Columns.Add("First")
[void]$dt.Columns.Add("Second")
[void]$dt.Columns.Add("Third")
 
$dt.TableName = "Me"
$ds = New-Object System.Data.DataSet
$ds.Tables.Add($dt)
 
$dt2 = New-Object System.Data.Datatable "AnotherTable"
[void]$dt2.Columns.Add("Age")
[void]$dt2.Columns.Add("Email")
[void]$dt2.Rows.Add(10,"User1@T.com")
[void]$dt2.Rows.Add(20,"User2@T.com")
$ds.Tables.Add($dt2)
 
$ofs=','
[string[]]$List=($DS.tables[1].rows).Email
"$list"
 
"$(($DS.tables[1].rows).Email)"

06/02/2018, 14h23
69Pierre
:bravo:
Citation:
Envoyé par Laurent Dardenne

Sur le Dataset, je ne pense pas, mais je n'ai pas de test sous la main pour confirmer.

Normal, et je ne l'ai pas vu hier soir, l'affectation dans $Emailto ne renvoi rien dans le pipeline, la syntaxe suivante permet d'affecter une valeur ET de renvoyer la valeur affectée :

Code:

1 2 3 $i=10 # affectation ($i=10) # affectation ET émission de 10 dans le pipe

Mais la construction de ta liste est à revoir je pense. par exemple la tracer une fois construite.
06/02/2018, 14h25
69Pierre

Citation:

Envoyé par Laurent Dardenne

Avec les versions récentes de PS tu peux écrire ceci :

Je ne suis pas sûr d'avoir une version récente.

Pour le format de date, il me fallait JJ/MM/AAAA, du coup c'est réglé.
Il ne me reste plus qu'à mettre une partie du mail en gras (je n'ai pas encore trouvé comment) et c'est réglé.
Merci beaucoup.

Et problème d'encodage.
Sous windows 7, culture france et version :
Code:

1 2 3 4 5 6 7 8 9 10 11 PS C:\Users\adm-rva> $PsVersionTable Name Value ---- ----- PSVersion 5.0.10586.117 PSCompatibleVersions {1.0, 2.0, 3.0, 4.0...} BuildVersion 10.0.10586.117 CLRVersion 4.0.30319.42000 WSManStackVersion 3.0 PSRemotingProtocolVersion 2.3 SerializationVersion 1.1.0.1
PS : J'ai mis :

Code:

$OutputEncoding = New-Object -typename System.Text.UTF8Encoding

en début de code mais mails partent toujours avec un mauvais encodagen je n'ai pas compris comment utiliser ce nouvel objet encodage.

06/02/2018, 16h00
Laurent Dardenne

Citation:

Envoyé par 69Pierre

Je ne suis pas sûr d'avoir une version récente.

Si la v5.0, l'itération automatique sur une collection fonctionne depuis la version 3 de PS

Citation:

Envoyé par 69Pierre

Et problème d'encodage.

Regarde à la source si tes données sont dans le format attendu

Teste hors de ton script si ceci fonctionne :

Code:

1
2
3
 
$encoding=[System.Text.Encoding]::UTF8
Send-MailMessage -to "<adresse@email>" -from "<adresse@email>" -Subject "Test de Mail accentuée" -body "Ceci est un test système d'envoi accentué." -Encoding $encoding

06/02/2018, 16h47
69Pierre
Oui, ça ça marche nickel.

Pour mon format de données, c'est issu d'une requête T-SQL :
Code:

1 2 3 ... CAST(CAST(date_debut_message AS DATE)AS NVARCHAR(10)) as jour ...
06/02/2018, 16h58
Laurent Dardenne

Citation:

Envoyé par 69Pierre

Pour mon format de données, c'est issu d'une requête T-SQL :

Je me doute :), les données renvoyées par cette requête sont-elle accentuées correctement dans PS ?
06/02/2018, 17h01
69Pierre

J'en ai aussi des directement créées dans PS :

Code:

$emailMessage.Subject = "Actualités"

Bonjour.
Ce que je ne comprends pas, c'est comment utiliser :
Code:

1 2 3 $OutputEncoding = New-Object -typename System.Text.UTF8Encoding $encoding=[System.Text.Encoding]::UTF8
avec mon objet $emailMessage :
Code:

1 2 3 4 $sujet = "Actualités" $emailMessage = New-Object System.Net.Mail.MailMessage($emailFrom , $emailTo) $emailMessage.Subject = $sujet
pour gérer cet accent que j'ai dans le code powershell.