I have been trying to find an easier way to make sure that the email address that I have been given in a excel workbook are in the proper format before I try to use them. I have tried doing a google search on this subject but have not found the correct solution. I want to enter a function in column L that would use a regular expression for the email format and compare it to the email address in column J. If the results are true place a value of 1 in column K. If false place a value of 0 in column K.
I would like to know what proper code to use if I want a textbox validate if the entry typed in is an email address and has no blank spaces in it. The textbox is in a worksheet and is in an activex form.
How it is possible to control the entry for the E-mail address? I mean if there is no '@' or '.' and more that I dont know, maybe you know better and faced to such problem
I am struggling to find a macro which can look at a name in column 'BT' and search it in the address book of Outlook to then place the email address of that person in column 'ED'
There are 35,000+ people in the address book and there may be over 5 email addresses for one name, so is there any way a message can appear for the user to select which email address is correct if there is more than 1 contact for that name?
We receive about 20 sales files of several hundred lines of data each day from various agencies. I want to create a macro / VBA code which checks that the data submitted is correct so that we can upload it into our database without import errors and / or having to manually check each line of data.
I envisage something like an output report:
##################### 149 entries Column A - Date - OK Column B - Customer_Phone - Errors (Should be 11 digits) Row 21 - Customer_Phone - Error (Not 11 digits) Row 108 - Customer_Phone - Error (Contains letters) Column C - Outcome - OK Please correct and re-check. #####################
On a worksheet called "Contact Info" column A starting in row 2 I have a list of names (variable length). In Columns B2-D I need the email address, work phone number, and cell phone number.
I have specified the email addresses in the code to whom the email will be sent when the user presses "Send Email" button but now I want to add all the addresses in the Access table and write down the code that will send an email to those people whose addresses are in the Access table.
I have the below code to email a specific sheet to an email address, however the email stays in the outbox and isn't sent. Is there something missing from the code or is it a setting issue with my email? I'm using Outlook 2010.
I am trying to send an automated email by use of a "email" button. What I want it to do is to pop up a input box that will ask me who I want to send the email to, and once I hit ok it will send open up outlook and send the email. I have the code to work if I want it to be sent to a specific email address, but I can't seem to get the email address entry part to work. I will attach my code as it lays right now.
Private Sub CommandButton2_Click()'Need to reference: Microsoft Forms 2.0 Object LibrarySet OutApp = CreateObject("Outlook.Application")OutApp.Session.LogonSet OutMail = OutApp.CreateItem(0)strbody = "This is the most up to date copy of EAS Tracking 2.0 as well as the Resource Planning Sheet."attachmnt2 = "C:My DocumentsResource Planning Sheet_External.xls"On Error Resume Next'?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|? BELOW IS WHERE I CAN'T GET TO WORK!!!With OutMailDim range As Longrange = Application.InputBox("How many copies do you want?", "Number of Copies").To = range.Subject = "This Weeks Reports".Body = strbody.Attachments.Add (attachmnt2).Display.SaveEnd With'__________________________________________________attachmnt3 = "C:My DocumentsReport DataWork Request Tracking Data FolderEAS Request 2.0.xls"On Error Resume NextWith OutMail.Subject = "This Weeks Reports".Body = strbody.Attachments.Add (attachmnt3).Display.SaveEnd .........
I need to email a page from a worksheet to a series of people and am currently using the following
Worksheets("Report").Activate ActiveWorkbook.Save
Dim wb As Workbook Dim strdate As String strdate = Format(Now, "dd-mm-yy h-mm-ss") Application. ScreenUpdating = False ActiveSheet.Copy Set wb = ActiveWorkbook With wb
however, I also need the worksheet to be email to the person currently running the macro (i.e. when they email it to the others, a copy is sent to thier own inbox too), is there any way in which this can be done?
The user's email address could be formed from data in the spreadsheet, if there is an easier way to do this (i.e. email address is based on a cell in the spreadsheet).
Below is the code to look in a specified sheet and find the values in the row where the combobox value is found. These values that populate into the Listbox when a Combobox value has been selected, are in the same row as the Combobox value, but offset 20 - 29 columns.
All is good in this section of code.
The Listbox has 3 coulumns. It is populated as follows: 1st column is the header in Row 1 of the the columns 2nd column is the actual numerical values(minus another value offset 80 columns) in the combobox specified row, and 3rd column is the actual numerical value address in the combobox row.
Code: Private Sub ComboBox1_Click() Application.ScreenUpdating = False If Me.ComboBox1.Value <> "" Then Me.ListBox1.Clear ' On Error Resume Next
[Code] .......
The next code runs thwn the user double clicks a Listbox value. It basically enters the Combobox value and Listbox value to a sheet. All is good here, with the exception to placing the Listbox item address to the specified sheet cell.
For some reason i ALWAYS obtain the LAST possible address of the range of values (i = 20 - 29), instead of the actual item selected in the listbox.
Code: Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) With Sheets("DESPATCH") .Activate ActiveCell.Value = Me.ComboBox1.Value
[Code] .......
How to rectify this to obtain the correct listbox address ?
I have a spreadsheet which needs to display currency in the correct format dependant upon whether a contract is in English or German Law. Excel defaults currency format as €310,000.00 however in German this needs to be €310.000,00 i.e. with the decimal point and comma in opposite positions. Does anyone know what expression I can use to format it as the latter?
I need to make sure people enter City State and Zip correctly,
I need somehow to validate: City, NC 21312
Validate City with a comma right next to it with a space and then 2 letters and then space or 2 space and 5 numbers.
Is there any way to do this using Validation.
I guess I could separate the cells, but I would rather not do that. Or I could have a message box pop up and ask individually to enter each one, but I would rather not do that.
I have a string and I have to validate that it is entered in a particular format. The length has to be 12 and the characters should be entered in this format: XX1111/11XXX where X represents alphabet and 1 represents number. The "/" is a part of the string.
I tried using the Data---> Validate function and the problem I faced is that the code turns out to be very long and the formaula cell doesnt let me enter such a long formula. Is there any other way to do this without using a macro?
It worked well at the time and continues to work well.
The problem I have is that I've copied it for use in a new workbook and for some reason it's not picking up email addresses and storing them in the string "stemails", so that when the email is created there are no addressees. Column BA does have email addresses in it however.
I have a list of email addresses. Most of them are in the format of: firstname.lastname@domain.com
There are about 200 of them. I wish to extract the firstname and lastname into seperate columns so i end up with:
Code: A | B | C -------------------------------------------------------------- Firstname | Lastname | firstname.lastname@domain.com
I am sure I came across something before that did something like this. but I was not able to find it. Any macro or script to perform this extraction.
note that some of the addresses are in the format: name@domain.com In those cases I would like just everything before the @ put into column A. I will then manually figure out how the value is to be broken up into firstname / lastname.
sort out the email address as per the company name using Vlookup or any other formulae other than using text to column on "Email Adress" and then doing a Vlookup from the reference table.
I have a combined sentence with email address at the end. There is a space between email and other part. For example, in Cell A1, it's: PO Box 132, Washington Ave, dennis789@yahoo.com. In cell A2, it changes to: 12 DW Road, georgeyiui@hotmail.com. How can I separete these emails out?
I have a list of email addresses. Most of them are in the format of: firstname.lastname@domain.com
There are about 200 of them. I wish to extract the firstname and lastname into seperate columns so i end up with:
A | B | C -------------------------------------------------------------- Firstname | Lastname | firstname.lastname@domain.com I am sure I came across something before that did something like this. but I was not able to find it. Please let me know if you can provide a macro or script to perform this extraction.
Please note that some of the addresses are in the format: name@domain.com In those cases I would like just everything before the @ put into column A. I will then manually figure out how the value is to be broken up into firstname / lastname.
I am currently trying to automate a receipt system. I have successfully managed to create an email based on calculated Excel data. The email is created using the following routine.
callref="12345" strbody = "The main text of the email"
Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0)
On Error Resume Next With OutMail .To = "John Smith" .BCC = "" .Subject = "Test email receipt - " & callref .Body = strbody .Display 'or .Send - still developing!!! End With On Error GoTo 0
Set OutMail = Nothing Set OutApp = Nothing
My problem is that there will be several people using this system so I would like to include a reply address which is different from the sender. Alternatively, I would like to send the email from a different account (but I have to assume that the users will have their own email accounts open).
Is it possible to create a rule that every time I type my name, for my e-mail address to pop up in excel instead?
For example, if I type "purple1686", I want "12purpleexample@domain.com" to show up as a hyperlink to my default e-mail program.
I am also curious if I was to write "my website" is it possible to make it a hyperlink to "www.purple1686example.com"?
Those two first may be easy to answer, so here is the challenging part for me:
Can I make that happen as a rule on every spreadsheet I open?
I don't know if I should make a template, or use a formula? The ideal scenario would be if there was a way to do it through conditional formatting.
I have used conditional formatting to change the color of a word every single time I open a new template and paste the words into it, or even by typing them out.
I've two columns, one being the first name and the second being the last name. Is there a way that I can convert these two columns into the correct format for the email address ? Rather than having to manually do this.
When I type a eMail address, such as: " myemail@hotmail.com " into any cell and then touch enter, it automatically becomes a hyperlink coloring it blue and underscored. I do not want it to be a hyperlink, for when it is a hyperlink, I have to click on remove hyperlink.
a formula to create an email address. The person's name is in cell A1. The email addresses are all the last name + first initial followed by @ and the domain name. For instance, if name is John Doe, the email address would be doej@emaildomain.com.
The problem is, some of the names in the list contain middle initials, so I can't figure out a reliable way to discern the last name.
I know I can create a custom function in VBA using InStrRev to separate the last name, but if there is a way to do it using the functions already available in Excel, I'd rather do that.
