LOADPICTURE RETORNANDO NÚMEROS

EDUCARDIA 08/05/2023 09:17:09
#501350
Alterado em 08/05/2023 11:50:50 Prezados,

Dentro de um procedimento Public Sub Main , estou trabalhando com Array para preencher informações padronizadas em emails.

Ao executar o client de email, ele executa o script com esse procedimento preenchendo algumas informações como Para:, Cc:, Assunto:, Assinatura de Email:, Etc.

Na assinatura, estou tentando carregar uma imagem:

Dentro do procedimento, criei uma variável e atribuí o valor carregando o arquivo bmp;

Dim X

Set X = loadpicture("c:\ass\assinatura.bmp")

Ao chamar o client de email, no local da assinatura ao invés de carregar a imagem ele preenche com números aleatórios.

O que pode ser? Tipos incompatíveis ? Ou trabalhando com Array não posso carregar imagens?
EPISCOPAL 08/05/2023 21:18:37
#501351
Pode ser um milhão de coisas .... pode ser mais descritivo e oferecendo mais trechos do seu codigo?
EDUCARDIA 09/05/2023 10:45:56
#501357
Alterado em 23/05/2023 08:45:00
end sub
   
Dim conn
Dim prm

Public Sub main (prm)
    prm.ExecutionResult = prm.Constants.EXECUTION_RESULT_FALSE        
    
    Set Me.prm = prm
    Dim bytAccessType, avParameters
    prm.TranslateNewToOldModelControl bytAccessType, avParameters
    
    Dim inFoEmail
    Dim strMensagem, strAssunto, strCc, strAssinatura, strPara
     
    Set ocnADO = CreateObject ("ADODB.Connection")
    ocnADO.Open "DSN=" & Trim (prm.Database.Dsn) & ";Persist Security Info=true;Uid=" & Trim (prm.Database.UserName) & ";Pwd=" & Trim (prm.Database.Password) & ""
    ocnADO.CommandTimeout = 0

    Dim x
    Set x = loadpicture("c:\ass\assinatura.bmp")

 
    'Antes do envio
    If (UCase (avParameters(0)) = "B") Then
        
        'Recebe array contendo os dados do e-mail
        inFoEmail = prm.inFoEmail
        
        'Recebe dados do array
        strMensagem   = inFoEmail(0)
        strAssunto  = inFoEmail(1)
        strCc        = inFoEmail(2)
        strAssinatura = inFoEmail(3)
        strPara      = inFoEmail(4)
        '
        '... Personalizações
        '
        strMensagem = "Prezado Cliente </br></br>  texto padrão : </br><br>" & inFoEmail(0) & "</br><br> texto padrão" 
        strAssunto = "Teste Imagem com Assinatura"
        strCc      = "assinaturateste@gmail.com"
        strAssinatura = "" & x & ""
        strPara      = "assinaturateste@gmail.com"
      
        'Retorna dados utilizados
        inFoEmail(0) = strMensagem
        inFoEmail(1) = strAssunto
        inFoEmail(2) = strCc
        inFoEmail(3) = strAssinatura
        inFoEmail(4) = strPara
     
     
        prm.inFoEmail = inFoEmail
        
        prm.ExecutionResult = prm.Constants.EXECUTION_RESULT_TRUE
        
        'Após o envio
    ElseIf (UCase (avParameters(0)) = "E") Then
         prm.ExecutionResult = prm.Constants.EXECUTION_RESULT_TRUE
    End If
EDUCARDIA 23/05/2023 09:24:44
#501429
Estou reenviando com o código!
Faça seu login para responder
Voltar