[Resolvido]E-mail (Cx Listagem) Erro!

Boas pessoal. Estou com um problema no envio de e-mail baseado em uma caixa de listagem:

Exemplo: Tenho uma caixa de Listagem com os nomes e e-mails de fornecedores, e um botão para clicar e abrir o outlook para enviar redigir e enviar o e-mail.

Tenho 4 fornecedores, ex:

Alessandro - kafj@oi.com.br
José - 123@weyteee
Fulano - 2345@wiiuwuwu
Ciclano - eutueles@123.com.br

quando clico no botão de comando para abrir , funciona em parte, pois ele só leva para o outlook o primeiro cadastro da listagem;

Uso o código do mestre vieira que adaptei em outros projetos e funciona perfeito com textBox. Tentei na listagem mas não funfou. Queria ver se consigo com alguém do fórum a solução; Segue o código. Obs: este código existe um módulo para o funcionamento.

Private Sub Comando321_Click()

On error resume next
If IsNull (Me.Lista370!EMAIL_FORNEC) Then
Const SW_SHOW = 3
ShellExecute Me hWnd, "Open", "mailto:" & EMAIL_FORNEC, vbNullString, vbNullString, SH_SHOW
End If
End Sub

Acredito que estou no caminho, mas não consigo adaptar.

Desde já agradeço a ajuda

Módulo VBA
Option Explicit
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const SW_SHOW = 3

No botão de comando

Const SW_SHOW = 3
ShellExecute hwnd, vbNullString, "mailto:" & Me!Nomecaixatexto, vbNullString, CurrentProject.Path, 1

Teste assim

Grande Vieira! Amigão... Beleza, o módulo já tinha pego um exemplo seu e já faz parte do BD

Não tentei ainda pois estou no trabalho e não tenho acesso ao projeto.

Mas uma pergunta: Eu tenho os e-mail em uma caixa de listagem e no evevnto colocou em caixa de texto.(Me!Nomecaixatexto) será que funciona com Caixa de listagem? já que tenho 2 campos?

Desde já agradeço

Assim que testar dou o retorno...

Mestre Vieira, Testado, Aprovado e funcionando...

Mais uma vez muito agradecido...

Abraços