I would like excel to send an SMS text message (via Skype maybe?)when a particular set of conditions arise in a spreadsheet. I am not sure if this would be best carried out with spreadsheet functions or vba, or if it is possible at all.
View 6 RepliesHow can I send a SMS message to my cell phone if certain ocurrence happens in a cell. For example, if cell A1 = 1, then send a message to my cell phone.
Does anyone know if there is a way of sending SMS text messages from excel?
And if there is can this be automated from within VBA so that the OnTime method could be used?
I'm looking for a way to prompt outlook to create a new email and in the body copy the contents of Sheet1, but instead of sending, I want it to just hold it so that the user can review the email contents.
Similar to this, but instead of an attachment the email body contains the data from sheet1
[Code] .....
I wish to send a message when a worksheet is manually opened, but not when it is activated from within VBA.
The following code does not work, and I am open to suggestions
Private Sub Worksheet_Open() ....
How to send a range of cells in a sms text message by using Visual Basic for Applications in Excel?
BTW: I really need this to work for my job! So any feedback would be greatly welcomed. Please read below to understand what I'm trying to do. I need to be able to send my guys their daily goals via sms text message:
The following works great for sending a range of cells in a email message: ....
VB:
Sub exitbox()
MsgBox "This will close in 20 seconds"
If Application.Wait(Now + TimeValue("00:00:20")) Then [code]...
I am trying to close this msgbox 20 seconds from now, but I cannot get it working.
I did this 10 years ago so I admit I am rusty at this but here are what I had in my notes that worked with Excel XP. I am currently using Excel 2010
With ThisWorkbook
.HasRoutingSlip = True
With .RoutingSlip
[Code]....
The last line will send the workbook but I need a Subject and Message to go with it.
I have a spreadsheet with client names, email addresses, and appointment info. I export a .csv file from outlook. I have been doing a mail merge in word and then coping and pasting into an Outlook message and sending it out. I did some reseach and found code that I have made changes to. Of course they it doesn't work. I can't get anything to happen when I run this code.
Code:
Sub Qualls_Email_Confirms()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
[Code] .........
get the code for sending multiple emails as per the spreadsheet list. Assume the spreadsheet has 100 line items and each columns specifies the name of the person, value, recipient email address ("To" and "CC") and sender name.
And the Body of text is :
Hi "Name of the person" Please find the value of "Value" to be paid for the moth of xxx and kindly let me know for further clarification.
I used Scheduled Task to set up my spreadsheet to open daily. I have the code with assistance to pull out the due date items and place them into an email.
I have come across XLSTART/AUTOEXEC/ACTIVATE...ETC...
But cannot figure out the code that will automatically "enabling macro" once Scheduled Task opens the spreadsheet?
Then once the macro runs, the email with the due dates, how can this auto send without user interaction?
(currently I would have to hit send)
I am trying to make the process totally automated to open the spreadsheet at a certain time, send the email with due dates and close the spreadsheet.
Following code in ThisWorkbook--
Private Sub Workbook_Open()
Check_Date_Send_Mail
End Sub
Code in Module1--
Option Explicit
Sub Check_Date_Send_Mail()
Dim wbBook As Workbook
Dim wsSheet As Worksheet
Dim rnDate As Range, rnValue As Range
Dim stAddress As String, stMsg As String
Dim stRecipient As String, stSubject As String
Dim stPost As String
Set wbBook = ThisWorkbook
Set wsSheet = wbBook.Worksheets("Sheet1")
With wsSheet
Set rnDate = .Range("d2:t23")
End With
We use proprietary software to connect to an oracle database. The proprietary software has its own login form. I connect to 4 or 5 different databases randomly throughout the day. I wrote a script that I thought would alleviate my login woes but it doesn't work. The login, password, and database info get sent to the form but they all end up on the login line. Instead of the tab character being sent, I get a Beep generated for each line of code that is supposed to send the tab key code. My code is below and is stored in a *.vbs file.
setwshShell =wScript.CreateObject("WScript.Shell")
wshShell.AppActivate "Title Of My Login Form"
wScript.Sleep 100
wshShell.SendKeys "My Login Name"
wScript.Sleep 500
wshShell.SendKeys "{TAB}"
wScript.Sleep 500
wshShell.SendKeys "My Password"
wScript.Sleep 500
wshShell.SendKeys "{TAB}"
wScript.Sleep 500
wshShell.SendKeys "Name of My Database"
wScript.Sleep 500
wshShell.SendKeys "{TAB}"
wScript.Sleep 500
wshShell.SendKeys "~"
I have used a database template from this site and changed it to suit my needs but I have a bit of a problem with some of the code. I know how to update the worksheet with the relevant userform text fields and in another project I did I have successfully sent userform text fields in the body of an email.
For this project I want to update the worksheet AND send an email at the same time. However, using the two pieces of code together is causing an error that I can't seem to solve (using my very limited vba knowledge!). The code I am working on is below and I have highlighted the line that is getting the error message. C
VB:
Private Sub cmdSubmit_Click() 'Submit new record
Dim ws As Worksheet, lRow As Long, Str As String [code]....
I am trying to write a macro to send mail on every Friday and also on last day of every month. If the last day of the month falls on Saturday or Sunday then the macro should mail on Friday. I have written a separate macro to send a mail. I have also written to check day(ie Monday, Tuesday etc) of today. If today is Friday or month end i can send mail. I dont know how to tell the macro to send mail on friday if the month last date is saturday or sunday.
Sub done()
Dim Dat As Date, x As Integer, y As Date, sorry As String
Dim str As String
sorry = "Today is not friday or month end. So i cannot send mails"
str = WeekdayName(Weekday(Now()))
[Code] ........
I have this data in cells A1-A7 (each line in the example below is a cell with the cells name to the left of the: and the value to the right of the
The colors are simply to show the matching data----there are no colors in the excel sheet
A1:Nordica Valley
A2:8888 bla oook nikk Rd $15,950,000
A3:Sumik/Arnov 120.443.8976/555.443.8976
A4:5+3. 13+ acre horse ranch in
A5:private canyon. Pool, barn/ more.
A6:Robinson 999.443.8976
A7:Cell7 is blank
A8:Jit/Song 587.678.6788
I wish to extract the Phone#'s and Names to columns B&C.
The data for this example would be broken down as follows:
B1:Sumik
C1:120.443.8976
B2:Arnov
C2:555.443.8976
D1:.5
D2:.5.........................................
I'm looking to see is if there is a way to modify this code to format a phone number as (999) 999-9999. Right now it formats phone numbers as 999-999-9999.
VB:
Sub FormatPhoneNumber()
'Purpose: Formats a telephone number as 999-999-9999.
'In cases where more than one phone number is enter in
[Code].....
I work for a charity and we have a new call list, about 1.2 million phone numbers. We have a list of about 1,000 numbers that we are not supposed to call again. How can I scrub the do not call numbers against the master list to remove both numbers? The master list has names in a column, city in another column, numbers in a column and city in a column. The do not call numbers I have are just listed in 1 column.
View 7 Replies View RelatedI often have lists of badly formated phone numbers. I have created a number of macros that are quite good, but there is room for improvement.
Step 1:
Delete non numeric characters. This is a weak point - at the moment it is not working well (it removes characters from the entire sheet, rather than selected cells)
PHONE formatting. Is there a way to create a macro to format the VALUE of the phone to be either (XXX) XXX-XXX or XXX-XXX-XXXX ? I obviously can get it to look like this, but the value is just XXXXXXXXXX.
View 13 Replies View RelatedI have been able to successfully code a new email message one little thing I can't figure out is adding 77 plus their extension txtphone.
View 3 Replies View RelatedI'm needing a macro that will convert a column of 10 digit phone numbers and break them out or convert them from a XXXXXXXXXX format to a XXX XXX XXXX format.
I want to be able to copy and paste a long column of 10 digit numbers then have the macro run down the column and cut or copy the area code (first 3 digits of the 10 digit string) - move it two columns to the left - paste it into that cell - return then cut the next 3 digits - move it one column to the left, and paste it.
I have a cell that NEEDS to be of the following format:
#### ######
I have set this up under formatting, custom... and when I type a number like this ...
01304999999 I get the result 01304 999999 PERFECT!
Unfortunately if I type this....
01304 999 999 I get this result 01304 999 999 which ain't good as it mucks up my Macro, whih incidentally is this...
appWD.ActiveDocument.Bookmarks("PMTelephone").Range = Format(strPMTelephone, "0#### ######")
I had two formulas for working with phone tolls. I moved offices a while back and can not find the disk I burned them to, and I cant remember them.
One of the formulas was like this: If the cell contains and or equals target number than put “incoming” (and/or if not than “outgoing”) in this (a different) cell.
I also had a formula that if the phone numbers came in 3 columns i.e. area code in one column, prefix in a second column and the last four digits in a third column, would combine all the numbers in one cell.
I read the thread below on how to utilize the Subsitute function to remove periods and thought about being able to use it for this. However, I have some phone #'s in my list that contain multiple 1- scenarios in them because the area code or 3-digit prefix sometimes include a 1- also. How do I make the formula only look at the 1- for long distance and not any other 1- found in the phone #? I want to remove all of the 1- for long distance because we are trying to use a new autodialer that is pre-programmed with the 1-.
View 8 Replies View RelatedI am building a contact database in excel. I am using a userform to search, by autofilter, through several thousand contacts by any one of 7 criteria(account name, postal code,, account number, etc.). The only criteria that I cannot get to work is the phone number.
The numbers are entered in a ten digit string and the cells are formatted as phone numbers. i.e: 8005551212 = (800) 555-1212. When I run the search by the 10 digit number, the autofilter hides all results.
I am using VBA to enter customer information into a Microsoft SQL database. I have an excel sheet with thousands of customers listed. I will be using a While loop to process each line of the sheet. Part of the While loop needs to make any format changes necessary before the data moves over to the DB. So here is the issue:
How do I turn the following phone numbers:
(410) 273-9200
910-944-1232
276 623 4254
410 612 1100 Rob
(413) 786-1636 Cindy
1-800-783-4661
304) 842-5491 Sherry
Into a uniform layout? I would prefer ###-###-####
Each of the numbers above is an example from the list I have. There may be more variations (I have over 20 seperate lists to process, with over 10000 customers per list)
I imagine I need some process that will remove all character except numbers and then break the numbers up to add the hyphens back in at the appropriate places.
I have just created a phone list of about 70 lines on a single A4 sheet
A B C D
Name No Name No
One of the PA's now wants to know if she deletes a Name and No from say column A & B
can I make it all reconfigure to eliminate the blank spce.
So basically names fill column A & B first then overflow onto Columns C & D.
I think a macro is the only way to go here but the PA isn't keen.
I have a list of telephone numbers... in every format you can imagine
123.456.7892
(123) 456 - 7892
1234567892
123-456-7892
etc...
is there any way to extract JUST the numbers...
so the format all phone numbers would take would be:
1234567892
?
I'd like to dial phone numbers directly from a specific column on a worksheet just by doubleclicking on them.
I found this code which I am trying to adapt to my use.
The hardware part is setup already (modem, phone line, etc.)
Private Sub Dial(Number)
Dim DialString As String
Dim FromModem As String
Dim dummy As Integer
' AT is the Hayes compatible ATTENTION command and is required to send commands to the modem.
' DT means "Dial Tone." The Dial command uses touch tones, as opposed to pulse (DP = Dial Pulse).
' Numbers is the phone number being dialed.
' A semicolon tells the modem to return to command mode after dialing (important).
' A carriage return, vbCr, is required when sending commands to the modem.
DialString = "ATDT" + Number + ";" + vbCr
I am getting an error message when I doubleclick that says :Runtime Error 424 , Object
Required and then I'm taken to the code line that is in Bold Yellow. Dealing with Comm
Ports is too much for me. I only know that my modem is in Com Port 4. If I'm told what to
How do you add icons into a message box. ie a warning triangle etc.
View 3 Replies View Related