emailing from excel

[ammdumas]

Trying to email from excel. I got this from TommyGun...

Sub email()

Dim objOut As Outlook.Application
Dim objTask As Outlook.TaskItem
Dim blnCrt As Boolean

On Error GoTo CreateOutlook
Set objOut = GetObject(, "Outlook.Application")

CreateItem:
On Error GoTo 0

Set objTask = objOut.CreateItem(olTaskItem)

With objTask
.Assign
.Subject = "Test"
.Body = "This is a test email from excel, let me know if it worked...Austin " '& Format(Now + 10, "mm/dd/yy")
'.DueDate = CDate(Now + 10)
.Recipients.Add ("email@domain.com")
.Send
End With

If blnCrt = True Then objOut.Quit

Set objTask = Nothing
Set objOut = Nothing

Exit Sub

CreateOutlook:
Set objOut = CreateObject("Outlook.Application")
blnCrt = True
Resume CreateItem

End Sub

However, I get an error right off the bat with the line
'Dim objOut As Outlook.Application'
Error message is "User-defined type not defined"

I checked another post that said in Tools....References make sure 'Microsoft Office 9.0 Object Library' is checked. It is but it still doesn't work. What is the solution?

 

[cfer]

Hi,

I was searching for a topic on Email, and found this thread, excellent.

Just need a couple of adjustments.

I would like to Email Sheet1 as an attachment.

Automatically send a email at 0600, 1400 and 2200 hours each day.

One thing it does do is to ask if I want to send this Email, can it be done in the background, without any user input.

Thanks in advance

Cfer

 

[kate10123]

This is a security alet and can be avoided using the following code:

.Send
Application.Wait (Now + TimeValue("0:00:30"))
Application.SendKeys "%S"

You can put in a specified timeValue, if you want it to be be completely automated then change it to "0:00:00".

Hope that helps!

 

[bdavis215]

Can you attach a whole row, such as A3 thru S3. I tried .body = ("A3, S3").text but didn't work. Thanks in advance