Bonjour,
je viens car j'ai un soucis, je veux grace a une requete recuperer des adresses mails et les transmettre ensuite a outlook. Mais le pb est que ca m'ouvre sans pb outlook, mais a la place des mails que je devrai avoir, j'ai un ] et c'est tout. Aidez moi SVP. ci dessous le code de mon bouton qui permet de realiser ca!!!
Dim nb As Integer
Dim car As String
Dim adresses As String
Dim nb2 As Integer
Dim str As String
Set db = OpenDatabase(PathMDB)
'SQL = "SELECT [Numero client] FROM Realisation WHERE [Intitule de realisation]=" & Chr(34) & Form8.Combo1 & Chr(34)
'Set Table = db.OpenRecordset(SQL)
str = "SELECT [Adresse mail] FROM Client WHERE [Numero client] IN ( SELECT [Numero client] FROM Realisation WHERE [Intitule de realisation] = '" & Form8.Combo1 & "') ORDER BY [Adresse mail]"
Set Table = db.OpenRecordset(str)
nb = 1
car = ""
While nb < Len(str)
car = Mid(str, nb, 1)
If (car = ".") Then
nb2 = nb
If (Mid(str, nb, 3) = ".fr") Then
adresses = adresses & Mid(str, nb, 3) & ";"
nb = nb + 4
Else
If (Mid(str, nb, 4) = ".com") Then
adresses = adresses & Mid(str, nb, 4) & ";"
nb = nb + 5
Else
nb = nb + 1 ' au cas ou ya un point dans l'adresse genre Syl.mat@....
End If
End If
Else
nb = nb + 1 ' car est différent de "." donc on continue d'avancer dans la chaine
End If
Wend
adresses = adresses & ";" & Mid(str, nb, 2)
ShellExecute Me.hwnd, "open", "mailto:" & adresses, ByVal 0&, 0&, 1
End Sub
Voila je vous remercie par avance de votre aide.