E-Mailing
 

Good Morning,
I'm new to this and I'm trying to get an excel spreadsheet to send an email
out to a distribution list I have and went to rondebruin site and put this
program to use:

Sub Mail_workbook_Outlook_1()
'Working in 2000-2007
'This example send the last saved version of the Activeworkbook
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = "
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = "Hi there"
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub


I get the following msg below when running it:

Set xlApp = New Excel.Application
xlApp.DisplayAlerts = False
xlApp.Interactive = False
Set xlBook = xlApp.Workbooks.Open(varGetFileName, 0)
(message occurs upon execution of the above line)

E-Mailing
 

what is the message?

"Norm" wrote:

Good Morning,
I'm new to this and I'm trying to get an excel spreadsheet to send an email
out to a distribution list I have and went to rondebruin site and put this
program to use:

Sub Mail_workbook_Outlook_1()
'Working in 2000-2007
'This example send the last saved version of the Activeworkbook
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = "
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = "Hi there"
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub


I get the following msg below when running it:

Set xlApp = New Excel.Application
xlApp.DisplayAlerts = False
xlApp.Interactive = False
Set xlBook = xlApp.Workbooks.Open(varGetFileName, 0)
(message occurs upon execution of the above line)

E-Mailing
 

Compile Error: Invalid outside procedure.

"FSt1" wrote:

what is the message?

"Norm" wrote:

Good Morning,
I'm new to this and I'm trying to get an excel spreadsheet to send an email
out to a distribution list I have and went to rondebruin site and put this
program to use:

Sub Mail_workbook_Outlook_1()
'Working in 2000-2007
'This example send the last saved version of the Activeworkbook
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = "
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = "Hi there"
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub


I get the following msg below when running it:

Set xlApp = New Excel.Application
xlApp.DisplayAlerts = False
xlApp.Interactive = False
Set xlBook = xlApp.Workbooks.Open(varGetFileName, 0)
(message occurs upon execution of the above line)

E-Mailing
 

You have something outside the "Sub/End Sub" statements or "Function/End
Function" statements.

But it's difficult to see from here <bg.

Norm wrote:

Compile Error: Invalid outside procedure.

"FSt1" wrote:

what is the message?

"Norm" wrote:

Good Morning,
I'm new to this and I'm trying to get an excel spreadsheet to send an email
out to a distribution list I have and went to rondebruin site and put this
program to use:

Sub Mail_workbook_Outlook_1()
'Working in 2000-2007
'This example send the last saved version of the Activeworkbook
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = "
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = "Hi there"
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub


I get the following msg below when running it:

Set xlApp = New Excel.Application
xlApp.DisplayAlerts = False
xlApp.Interactive = False
Set xlBook = xlApp.Workbooks.Open(varGetFileName, 0)
(message occurs upon execution of the above line)



--

Dave Peterson

E-Mailing
 

And

send an email out to a distribution list

See
http://www.rondebruin.nl/mail/tips2.htm


Or Send to Outlook Distribution Group
Instead of .To " use

.Recipients.Add "GroupName"





--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Dave Peterson" wrote in message ...
You have something outside the "Sub/End Sub" statements or "Function/End
Function" statements.

But it's difficult to see from here <bg.

Norm wrote:

Compile Error: Invalid outside procedure.

"FSt1" wrote:

what is the message?

"Norm" wrote:

Good Morning,
I'm new to this and I'm trying to get an excel spreadsheet to send an email
out to a distribution list I have and went to rondebruin site and put this
program to use:

Sub Mail_workbook_Outlook_1()
'Working in 2000-2007
'This example send the last saved version of the Activeworkbook
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = "
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = "Hi there"
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub


I get the following msg below when running it:

Set xlApp = New Excel.Application
xlApp.DisplayAlerts = False
xlApp.Interactive = False
Set xlBook = xlApp.Workbooks.Open(varGetFileName, 0)
(message occurs upon execution of the above line)



--

Dave Peterson

E-Mailing
 

Here you are Dave, please let me know what I'm doing wrong.

Sub Mail_Workbook_Outlook_1()
'Working in 2000-2007
'This example send the last saved version of the Activeworkbook
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = "sdpg"
.CC = ""
.BCC = ""
.Subject = "7 Day Work Plan"
.Body = "Good Morning"
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("T:\D32SHR\ETDweb\DCOM\DCOM 7 DAY PLAN ALL
SERVICE CENTER\Master Sheets\2007\All Service Centers Master 5_7.xls")
.Send 'or use .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub



"Dave Peterson" wrote:

You have something outside the "Sub/End Sub" statements or "Function/End
Function" statements.

But it's difficult to see from here <bg.

Norm wrote:

Compile Error: Invalid outside procedure.

"FSt1" wrote:

what is the message?

"Norm" wrote:

Good Morning,
I'm new to this and I'm trying to get an excel spreadsheet to send an email
out to a distribution list I have and went to rondebruin site and put this
program to use:

Sub Mail_workbook_Outlook_1()
'Working in 2000-2007
'This example send the last saved version of the Activeworkbook
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = "
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = "Hi there"
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub


I get the following msg below when running it:

Set xlApp = New Excel.Application
xlApp.DisplayAlerts = False
xlApp.Interactive = False
Set xlBook = xlApp.Workbooks.Open(varGetFileName, 0)
(message occurs upon execution of the above line)



--

Dave Peterson

E-Mailing
 

You have something (unseen??) either before this code or after it.

Be very careful and copy just the stuff between the Sub/End Sub into a new
module.

Then delete the old module and test it out.

Norm wrote:

Here you are Dave, please let me know what I'm doing wrong.

Sub Mail_Workbook_Outlook_1()
'Working in 2000-2007
'This example send the last saved version of the Activeworkbook
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = "sdpg"
.CC = ""
.BCC = ""
.Subject = "7 Day Work Plan"
.Body = "Good Morning"
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("T:\D32SHR\ETDweb\DCOM\DCOM 7 DAY PLAN ALL
SERVICE CENTER\Master Sheets\2007\All Service Centers Master 5_7.xls")
.Send 'or use .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

"Dave Peterson" wrote:

You have something outside the "Sub/End Sub" statements or "Function/End
Function" statements.

But it's difficult to see from here <bg.

Norm wrote:

Compile Error: Invalid outside procedure.

"FSt1" wrote:

what is the message?

"Norm" wrote:

Good Morning,
I'm new to this and I'm trying to get an excel spreadsheet to send an email
out to a distribution list I have and went to rondebruin site and put this
program to use:

Sub Mail_workbook_Outlook_1()
'Working in 2000-2007
'This example send the last saved version of the Activeworkbook
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = "
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = "Hi there"
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub


I get the following msg below when running it:

Set xlApp = New Excel.Application
xlApp.DisplayAlerts = False
xlApp.Interactive = False
Set xlBook = xlApp.Workbooks.Open(varGetFileName, 0)
(message occurs upon execution of the above line)



--

Dave Peterson


--

Dave Peterson