Enviando um email pelo Outlook

Enviando um email pelo Outlook Primeiro, selecione o componente MICROSOFT MAPI CONTROLS. Depois acrecente no seu form o objeto MAPISESSION e MAPIMESSAGES que apareceram na sua toolbox. Então use a seguinte codificação para enviar uma mensagem: mapisession.Action = 1 mapimessages1.SessionID = mapisession.SessionID mapimessages1.Compose mapimessages1.RecipAddress = “webmundi@webmundi.com” mapimessages1.AddressResolveUI = True mapimessages1.ResolveName mapimessages1.MsgSubject = “Titulo da minha

Continue reading »

Testando a existência de um arquivo

Uma das maneiras de testar se um arquivo específico existe é utilizando a função Dir$, com a identificação completa do caminho do arquivo. Dir$ irá retornar o exato nome do arquivo (se existir) ou um nulo, se não existir. Por exemplo: If Dir$(“C:\DOCS\ARQUIVO.TXT”) <> “” Then ‘o arquivo existe – Insira sua rotina Else ‘arquivo

Continue reading »

CommitTrans, BeginTrans, RollBack

CommitTrans, BeginTrans, RollBack no Visual Basic Imagine que você tenha um processamento de diversas operações em um banco de dados e somente após a realização destes processos as alterações sejam realizadas de fato no Banco de dados. Utilizando BeginTrans, CommitTrans e RollBack você pode executar estes processos sem problemas permitindo que o processamento das alterações

Continue reading »

Enviando um E-Mail II

Enviando um E-Mail II Dim objSession As Object Dim objMessage As Object Set objSession = CreateObject(“MAPI.SESSION”) objSession.Logon “Your Profile Name”, , False,False Set objMessage = objSession.Inbox.Messages.Add objMessage.Subject = “Assunto da mensagem” objMessage.Text = “Texto da Mensagem” objMessage.Attachments.Add “Anexo”, , , “C:\webmundi.DOC” ‘caminho do arquivo em anexo objMessage.Recipients.Add “endereço do e-mail” objMessage.Recipients.Resolve objMessage.Send ‘Este codigo funciona

Continue reading »
Pages:1234567...15»