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 »

Trocar a cor da barra do form

Trocar a cor da barra do form Global Declare Function SetSysColors Lib “user32″_ (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long Public Const COLOR_SCROLLBAR = 0 ‘The Scrollbar colour Public Const COLOR_BACKGROUND = 1 ‘Colour of the background with no wallpaper Public Const COLOR_ACTIVECAPTION = 2 ‘Caption of Active Window Public

Continue reading »

Colocando a aplicação em espera

Colocando a aplicação em espera Em muitos casos é necessário colocar uma aplicação em VB em estado de espera ( inativa por um determinado período de tempo). O controle Timer, ajuda, mas só permite mais que 60 segundos. Muitas vezes, necessitamos de um tempo menor. A função do Windows Sleep permite fazer isto. Utilize o

Continue reading »

Efetuando Discagem no VB

Para efetuar uma discagem pelo VB,basta insirir o código: Crie um MsComm no seu Form; Depois Digite: Mscomm1.CommPort = 2 ‘(Nº da porta em que está seu FAX/MODEM) Mscomm1.PortOpen = True Mscomm1.Output = “ATDT 1234567” ‘(Discagem por Tom) MScomm1.Output = “ATDP 1234567” ‘(Discagem por Pulso)

Continue reading »
Pages:1234567...15»