samuka_medic

Fala aí, gente boa... Seguinte, estou gerar um e-mail a partir de duplo click em determinado registro... clico no registro, abre o outlook, carrega o e-mail, carrega o assunto... tudo belezinha... só que preciso que seja enviado uma imagem no corpo do e-mail, e não como anexo... vi um tópico que fala sobre isso, inclusive tinha um código, não que estava funcionando, e alguém explicou como fazê-lo funcionar, mas eu não consegui... :wacko: o código é esse: Dim AppOut As Outlook.Application Dim msg As Outlook.MailItem Set AppOut = New Outlook.Application Set msg = AppOut.CreateItem(olMailItem) msg.BCC = Me.EMAIL msg.Subject = "Obrigado por sua visita!" msg.Body = "Obrigado por sua visita!" msg.insertimage ("c:\Documents and Settings\SERVIDOR\Desktop\Obrigado.jpg") msg.Attachments.Add ("c:\Documents and Settings\SERVIDOR\Desktop\Obrigado.jpg") msg.display tentei de todo o jeito, mas não consegui carregar a imagem no corpo do e-mail... tem como alguém me ajudar explicando o passo-a-passo dando exemplos? pô... ficaria muito grato pela ajuda!!!! abraços...

Putz... não consegui fazer rodar.... dá uma força aí, véio... hehehe sou muito cabação quando o negócio é código... pra deixar mais claro, fiz o seguinte: criei uma macro EnviarObjeto, converti a macro em código. Eis o resultado: ------------------------------------------------------------------------------------------------------------------------------------- Function envia_e_mail_cobrança_parcela_5_dias() On Error GoTo envia_e_mail_cobrança_parcela_15_dias_Err DoCmd.SendObject , "", "", Forms![aviso e-mail cobrança]![e-mail_cliente], "", "", "AVISO IMPORTANTE!", "", True, "" envia_e_mail_cobrança_parcela_15_dias_Exit: Exit Function envia_e_mail_cobrança_parcela_15_dias_Err: MsgBox Error$ Resume envia_e_mail_cobrança_parcela_15_dias_Exit End Function ------------------------------------------------------------------------------------------------------------------------------------ com esse código tenho o e-mail do cliente (se tem mais de um e-mail, todos são carregados para o campo de endereço no outlook)e tenho também o assunto do e-mail (AVISO IMPORTANTE!)... até aí tudo bem, mas preciso colocar uma imagem no corpo do e-mail, que é uma "carta de cobrança"... a imagem está na mesma pasta que o BD o caminho da imagem é C:\SpySat\carta_de_cobrança.jpg o caminho do BD é C:\SpySat\system.mdb li em algum lugar que tem que ter algo de html pra funcionar sei que pra vocês que são feras isso deve ser fácil, mas eu num sei como fazer isso funcionar... :wacko: help....

Valeu véio!!!! vou dar uma olhada e respondo se funcionou ou não!!!

Salve, salve... Gostaria de saber se há como enviar uma imagem usando a macro EnviarObjeto. Só que não enviar como anexo e sim enviar no corpo do texto. Preciso que o access envie uma imagem (que na verdade é um carta de cobrança) para clientes inadimplentes. Já tenho tudo pronto, o access consulta os clientes inadimplentes, gera uma listagem dos mesmo, carrega seus e-mails, tudo bonitinho... só que não consigo inserir e imagem (que é um jpg) no corpo do texto... há como fazer isso? pode ser um código também (desde que me ensinei como inseri-lo... hehehe) Desde já agradeço a atenção!!! abraços

Olá, a todos! Primeiramente quero me desculpar caso já exista algum tópico sobre este assunto. Tentei procurar algo pertinente, mas não encontrei... Já fiz alguns sisteminhas em access, mas sempre trabalhei com macros. No que diz respeito a programação não entendo absolutamente nada, mas pelo visto terei que colocar algum código no sistema que estou desenvolvendo para resolver meu problema. Eis o danado do problema: Preciso desabilitar a opção RESTAURAR, pois o sistema trabalha com as janelas de formulários e relatórios maximizadas. Porém quando fecho um relatório, por exemplo, e há um formulário em segundo plano, este acaba restaurando, quando na verdade quero que continue maximizado. achei na net algo sobre como fazer isso, mas não consigo inserir esse código (não sei onde nem como colocá-lo no sistema) o código que achei é esse: Option Explicit Private Const WS_THICKFRAME As Long = &H40000 Private Declare Function GetWindowLong Lib _ "user32" Alias "GetWindowLongA" (ByVal _ hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib _ "user32" Alias "SetWindowLongA" (ByVal _ hwnd As Long, ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Private Declare Function SetWindowPos Lib _ "user32" (ByVal hwnd As Long, ByVal _ hWndInsertAfter As Long, ByVal x As Long, _ ByVal y As Long, ByVal cx As Long, ByVal _ cy As Long, ByVal wFlags As Long) As Long Function DisableResBtn(frm As Form) Const WS_THICKFRAME = &H40000 Const WS_MAXIMIZE = &H1000000 Const WS_MAXIMIZEBOX = &H10000 Const GWL_STYLE = (-16) Const SWP_FRAMECHANGED = &H20 Const SWP_NOMOVE = &H2 Const SWP_NOSIZE = &H1 Const SWP_NOZORDER = &H4 'Const HWND_TOP = 0 Dim nStyle As Long Dim hwnd As Long nStyle = GetWindowLong(frm.hwnd, GWL_STYLE) nStyle = nStyle And Not (WS_THICKFRAME) nStyle = nStyle And Not (WS_MAXIMIZE) nStyle = nStyle And Not (WS_MAXIMIZEBOX) Call SetWindowLong(frm.hwnd, GWL_STYLE, nStyle) SetWindowPos frm.hwnd, 0, 0, 0, 0, 0, SWP_FRAMECHANGED Or SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOZORDER End Function ================================================ No Evento Ao Carregar Docmd.maximize DisableResBtn Me. Queria umas dicas de como fazer isso funcionar.... PS.: o sistema roda em access 2003 Desde já agradeço a atenção!!! abraços