[Resolvido]Duvidas sobre exemplo Enviar email 90 dias antes do vencimento

Senhores,

Estou tentando adaptar o exemplo Enviar email 90 dias antes do vencimento que está no Repositório de Exemplos Ms Access criado por nosso amigo Criquio.

Estou tentando passar os valores de um form para o código, para os dados de servidor, porta, usuario e senha, mas está dando um erro de atualização.

Parte do codigo original:

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtps.uol.com.br" ' stmp do seu servidor
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 ' porta smtp do seu servidor
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True ' True se requer SSL ou False se não requer
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxxxxx@uol.com.br" ' Seu usuário ou emial completo
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxxxxx" ' Senha do seu Email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update


Adaptação que estou tentando fazer mas não está funcionando:

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Forms!Frmacesso!SERVIDOR ' stmp do seu servidor
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Forms!Frmacesso!PORTA ' porta smtp do seu servidor
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True ' True se requer SSL ou False se não requer
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = Forms!Frmacesso!USUARIO ' Seu usuário ou emial completo
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Forms!Frmacesso!SENHA ' Senha do seu Email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update

Teste lembrando que o Frmacesso tem de estar aberto e se este código correr dentro desse formulario nem necessita de referenciá-lo, pode utilizar o Me.SERVIDOR etc, etc;


.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "'" & Forms!Frmacesso!SERVIDOR & "'" ' stmp do seu servidor
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "'" & Forms!Frmacesso!PORTA & "'" ' porta smtp do seu servidor
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True ' True se requer SSL ou False se não requer
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "'" & Forms!Frmacesso!USUARIO & "'" ' Seu usuário ou emial completo
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "'" & Forms!Frmacesso!SENHA & "'" ' Senha do seu Email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update

Nota:
Se for Texto leva aspas simples, se for numerico leva apenas as aspas duplas.

Resolvido. obrigado.

Obrigado pelo retorno o forum agradece.