Hi , this is an example to check if modem is available and on which port is connected , hope this code would answer your question
<-----------
If WitchComm(DIALER) > 0 Then
StatusBar1.Panels(4).Picture = LoadPicture(App.Path & "\Phone.bmp")
StatusBar1.Panels(4).Text =...
each time you add a value to you Grid Sort it <br> MsflxGrid.AddItem "2"<br> MsflxGrid.AddItem "1"<br> MsflxGrid.Sort = 1<br> MsflxGrid.AddItem "3"<br> MsflxGrid.Sort =...
create new form and add text boxes<br>
ComTo, ComCc, ComBcc, mBody, mSubject <br>
Then add a command button CmdSend<br>
<br>
Private Sub CmdSend_Click()<br>
<br>
Dim olapp As Object<br>
Dim oitem As Object<br>
<br>
Set olapp = CreateObject("Outlook.Application")<br>
Set oitem =...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.