dial a phone number

  • Thread starter Thread starter marleymanner1
  • Start date Start date
M

marleymanner1

Guest
hello experts...I am the new guy here. I wonder if there is anyone that could help me with some code to dial a phone number from access? I know this is possible, but have NO IDEA how to do it...

I also think that you can do this from the internet, but don't really understand how that works either..
 
You can do it if you have Skype installed, otherwise you need a modem installed on your PC.
 
thank you for the link. already reviewed it. Tony, can you not do this over the internet by chance, without a modem?
 
I can't use skype Tony. That is not in our package. I am trying to send a text file to a pager...
 
Most pagers can be sent text via email. Why not just get the email equivalent and go that route. It would simplify things.
 
Another possibility would be to send the text message via Email. Many cell phones and pagers do have an Email address through the service provider. Example: AT&T Cell Phones use the convention 1112223333@txt.att.net, where:
111 - Area Code
222 - Prefix
3333 - Suffix

Do the pager(s) you have to reach have Email Addresses?
 
Most pagers can be sent text via email. Why not just get the email equivalent and go that route. It would simplify things.
Basically, i'm not sure how the email thing works. But the users have to be able to see the message across the screen. Thus, they probably won't know ow to work email, if it requires the push of a button or even more than that. Thus, all I want to do is be able to send a message in the form of a text file to the pager, and have it roll across their screen.
 
If you send a text message to a pager it will come across as the same as a page.
 
thank you bob. at least i know that. now all i need is the code. off to search we go...
 
You can use the CDO.Message object to send an Email in VBA, something like the following:
Code:
[COLOR="Navy"]Dim[/COLOR] myMail [COLOR="navy"]As Object

Set[/COLOR] myMail = CreateObject("CDO.Message")
[COLOR="navy"]With[/COLOR] myMail.Configuration.Fields
    .Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") _
        = 2
    [COLOR="DarkGreen"]'Name or IP of remote SMTP server[/COLOR]
    .Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
        = "mysmtp.server.com"
    [COLOR="darkgreen"]'Server port[/COLOR]
    .Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
        = 25
    .Update
[COLOR="navy"]End With[/COLOR]
myMail.From = "mymail@mydomain.com"
myMail.To = "someone@somedomain.com"
myMail.Subject = "Sending email with CDO"
myMail.TextBody = "This is a message."

myMail.Send
[COLOR="navy"]Set[/COLOR] myMail = [COLOR="navy"]Nothing[/COLOR]
 

Users who are viewing this thread

Back
Top Bottom