ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Email to from Excel (https://www.excelbanter.com/excel-programming/328632-email-excel.html)

Nigel

Email to from Excel
 
Hi,
I have created a database for my company to use. I am looking for a code or
routine to help me on the following:
An email address is shown on the cell D12
I have written a code to change the cell contents from formula to email.
I would like a button to copy the email address and open outlook to create
an email to the specific address shown. I can do the rest but i am really
stuck on this one.
If outlook is open, it may need an error handler to stop a second instance
opening.

Summary:
i select my contact,
press a button,
outlook opens and the email address is in the "send to"

Regards,

Nigel


Bob Phillips[_7_]

Email to from Excel
 
See http://ww.rondebruin.nl/sendmail.htm where this is covered.

--
HTH

Bob Phillips

"Nigel" wrote in message
...
Hi,
I have created a database for my company to use. I am looking for a code

or
routine to help me on the following:
An email address is shown on the cell D12
I have written a code to change the cell contents from formula to email.
I would like a button to copy the email address and open outlook to create
an email to the specific address shown. I can do the rest but i am really
stuck on this one.
If outlook is open, it may need an error handler to stop a second instance
opening.

Summary:
i select my contact,
press a button,
outlook opens and the email address is in the "send to"

Regards,

Nigel




Nigel

Email to from Excel
 
Hi,
There doesnt seem to be what i am looking for. it seems that everything on
the site will automatically send a sheet or a book. i only want to open
outlook to send my own email with my own subject etc. unless i am not seeing
something.

nige

"Bob Phillips" wrote:

See http://ww.rondebruin.nl/sendmail.htm where this is covered.

--
HTH

Bob Phillips

"Nigel" wrote in message
...
Hi,
I have created a database for my company to use. I am looking for a code

or
routine to help me on the following:
An email address is shown on the cell D12
I have written a code to change the cell contents from formula to email.
I would like a button to copy the email address and open outlook to create
an email to the specific address shown. I can do the rest but i am really
stuck on this one.
If outlook is open, it may need an error handler to stop a second instance
opening.

Summary:
i select my contact,
press a button,
outlook opens and the email address is in the "send to"

Regards,

Nigel





Tom Ogilvy

Email to from Excel
 
Just modify the code so it doesn't send or add an attachment. The basic
code you need is there.

--
Regards,
Tom Ogilvy

"Nigel" wrote in message
...
Hi,
There doesnt seem to be what i am looking for. it seems that everything on
the site will automatically send a sheet or a book. i only want to open
outlook to send my own email with my own subject etc. unless i am not

seeing
something.

nige

"Bob Phillips" wrote:

See http://ww.rondebruin.nl/sendmail.htm where this is covered.

--
HTH

Bob Phillips

"Nigel" wrote in message
...
Hi,
I have created a database for my company to use. I am looking for a

code
or
routine to help me on the following:
An email address is shown on the cell D12
I have written a code to change the cell contents from formula to

email.
I would like a button to copy the email address and open outlook to

create
an email to the specific address shown. I can do the rest but i am

really
stuck on this one.
If outlook is open, it may need an error handler to stop a second

instance
opening.

Summary:
i select my contact,
press a button,
outlook opens and the email address is in the "send to"

Regards,

Nigel







Bob Phillips[_7_]

Email to from Excel
 
Here is the basic code

Sub SendEmail()
Dim oOutlook As Object
Dim oMailItem As Object
Dim oRecipient As Object
Dim oNameSpace As Object

Set oOutlook = CreateObject("Outlook.Application")
Set oNameSpace = oOutlook.GetNameSpace("MAPI")
oNameSpace.Logon , , True

Set oMailItem = oOutlook.CreateItem(0)
Set oRecipient = oMailItem.Recipients.Add(Range("D12").value)
oRecipient.Type = 1
oMailItem.Subject = "an email from me"
oMailItem.Body = "How are you"
oMailItem.Send

End Sub

--
HTH

Bob Phillips

"Nigel" wrote in message
...
Hi,
There doesnt seem to be what i am looking for. it seems that everything on
the site will automatically send a sheet or a book. i only want to open
outlook to send my own email with my own subject etc. unless i am not

seeing
something.

nige

"Bob Phillips" wrote:

See http://ww.rondebruin.nl/sendmail.htm where this is covered.

--
HTH

Bob Phillips

"Nigel" wrote in message
...
Hi,
I have created a database for my company to use. I am looking for a

code
or
routine to help me on the following:
An email address is shown on the cell D12
I have written a code to change the cell contents from formula to

email.
I would like a button to copy the email address and open outlook to

create
an email to the specific address shown. I can do the rest but i am

really
stuck on this one.
If outlook is open, it may need an error handler to stop a second

instance
opening.

Summary:
i select my contact,
press a button,
outlook opens and the email address is in the "send to"

Regards,

Nigel








All times are GMT +1. The time now is 10:57 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com