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 »

Adicionando segurança a uma base de dados Jet

Adicionando segurança a uma base de dados Jet Para ter uma maior segurança a uma base de dados Jet (.MDB), versão 2.5 (Access 2/VB3/VB4-16 bit) ou versão 3.0 (Access 7/VB4-32 bit), siga os seguintes passos: 1.Use o Access Workgroup Administrator para criar um novo grupo de trabalho, com uma não nula Workgroup ID. 2.Inicie o

Continue reading »

Criando toolbars dockaveis

Criando toolbars dockaveis Private Declare Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long Declare Function ReleaseCapture Lib “user32” () As Long Sub Toolbar1_MouseDown(Button as integer, Shift as integer, X as single, Y as single) ReleaseCapture Dim a& a& =

Continue reading »
Pages:1234567...37»