How JustAnswer Works:
  • Ask an Expert
    Experts are full of valuable knowledge and are ready to help with any question. Credentials confirmed by a Fortune 500 verification firm.
  • Get a Professional Answer
    Via email, text message, or notification as you wait on our site.
    Ask follow up questions if you need to.
  • 100% Satisfaction Guarantee
    Rate the answer you receive.
Ask Richard Your Own Question
Richard
Richard, Software Engineer
Category: Email
Satisfied Customers: 37692
Experience:  Over 15 year experience in Email Systems and Programs
32989067
Type Your Email Question Here...
Richard is online now

I am owner of lotus 123 and having difficulty sending a range

Customer Question

I am owner of lotus 123 and having difficulty sending a range within a spreadsheet
Its then protocol like "mail to" or "htp/www" etc, there is a hyperlink facility but cannot get working. Can you help please
Cheers
Mike Jenney
Submitted: 4 years ago.
Category: Email
Expert:  Richard replied 4 years ago.
Hi Mike.

You need to use the formula

=HYPERLINK(“mailto:[email protected]?subject=My Email”, “Send Email”)

This will allow you then to click on it and it will create an email.

I believe this is what you wish to do?

If not, please let me know

Thank you


Customer: replied 4 years ago.

just going away to 123 and try
cheers

Expert:  Richard replied 4 years ago.
no problem

Customer: replied 4 years ago.

this is what I put in 123 as a macro attached to a button but it stays unaccepted "mailto:[email protected]", "17 badger"

Expert:  Richard replied 4 years ago.
ok, can you test this code please Mike?


Sub CreateMailsWithoutAttachment()
Dim lCn&, lLr&
Dim iMsg As Object
Dim iConf As Object
Dim Flds As Variant
Dim sData
Dim SendTo As String
Dim sName As String



lLr = Cells(Rows.Count, "A").End(xlUp).Row
For lCn = 1 To lLr
sData = Cells(lCn, 4)
SendTo = Cells(lCn, 8)

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("Error") = 2
.Item("Error") _
= "PLEASE PUT YOUR SMTP SERVER HERE e.g smtpserver.domadmin.organisation.co.uk"
.Item("Error") = 25
.Update
End With
With iMsg
Set .Configuration = iConf
.To = SendTo
.CC = ""
.BCC = ""
.Subject = "Here is your email for Row " & lCn
.TextBody = sData
.Send
End With

Next lCn
End Sub

What error do you get if it fails?
Customer: replied 4 years ago.

do I just put this in the sub, but what is smtp, where do I look


cheers mike

Expert:  Richard replied 4 years ago.
Your SMTP is your Mail Server mike

This is a Sub, so you can use this entire block and link a button to it.

But you need to know the name of your mail server in your organisation.

This might be your problem here to begin with.

Let me know the results please.

Customer: replied 4 years ago.

who is the mail server, I am home ser, whrer do I look, its a dell laptop,windows8, does this help


mike

Expert:  Richard replied 4 years ago.
Sorry, I thought you were at an organisation.

It will not work from home Mike, the reason is your internet provider will block this, as this code is what spammers use as well.

In an organisation, you have total control over the mail server, hence you can allow this.

Can I ask, as an overview, what are you trying to achieve? Not technically, just in your own words please.

Customer: replied 4 years ago.

ok I have a range in a worksheet say AA1..AP66, this represents a doc which I wish to send to various email sites such as vat, or customer, or supplier. within the worksheet at particular cells are the email sites which I wish to send to


 


does this make sense


cheers

Expert:  Richard replied 4 years ago.
It does and thanks

As you are at home, you are going to need to manually do this.

Copy the cells you want to send, into a new worksheet.

then save this worksheet as a new file, and email this file (attach it to an email like you do with any files you email).

This will allow you to email it Mike.

Let me know if you have any difficulties please

Thank you