Dear all,

I have excel spreadsheet:
In column A the names of the people
In column B the e-mail Addresses
In column C the Filenames like this C:\Data\Book2.xls This don't have to be
Excel files.

I have the Macro wich loop through each row in Sheet1 and if there is a
E-mail address
and a filename that exist in that row it will create a mail with this
information and send it.

Sub TestFile()
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim cell As Range
Application.ScreenUpdating = False
Set olApp = New Outlook.Application
For Each cell In
Sheets("Sheet1").Columns("B").Cells.SpecialCells(x lCellTypeConstants)
If cell.Offset(0, 1).Value < "" Then
If cell.Value Like "*@*" And Dir(cell.Offset(0, 1).Value) < ""
Then
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = cell.Value
.Subject = "Testfile"
.Body = "Hi " & cell.Offset(0, -1).Value
.Attachments.Add cell.Offset(0, 1).Value
.Send 'Or use Display
End With
Set olMail = Nothing
End If
End If
Next cell
Set olApp = Nothing
Application.ScreenUpdating = True
End Sub

Problem is that for each sending of e-mail it is necessary confirmation and
I have to press button "YES".
How I can avoid pressing on "YES" and to send everything automatically.

Best wishes,
Lado

See this part of my site
http://www.rondebruin.nl/sendmail.htm#Prevent

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Kiknadze Lado" wrote in message ...
Dear all,

I have excel spreadsheet:
In column A the names of the people
In column B the e-mail Addresses
In column C the Filenames like this C:\Data\Book2.xls This don't have to be
Excel files.

I have the Macro wich loop through each row in Sheet1 and if there is a
E-mail address
and a filename that exist in that row it will create a mail with this
information and send it.

Sub TestFile()
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim cell As Range
Application.ScreenUpdating = False
Set olApp = New Outlook.Application
For Each cell In
Sheets("Sheet1").Columns("B").Cells.SpecialCells(x lCellTypeConstants)
If cell.Offset(0, 1).Value < "" Then
If cell.Value Like "*@*" And Dir(cell.Offset(0, 1).Value) < ""
Then
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = cell.Value
.Subject = "Testfile"
.Body = "Hi " & cell.Offset(0, -1).Value
.Attachments.Add cell.Offset(0, 1).Value
.Send 'Or use Display
End With
Set olMail = Nothing
End If
End If
Next cell
Set olApp = Nothing
Application.ScreenUpdating = True
End Sub

Problem is that for each sending of e-mail it is necessary confirmation and
I have to press button "YES".
How I can avoid pressing on "YES" and to send everything automatically.

Best wishes,
Lado

Thank you for your answer.
I'm using MS Outlook and I couldn't find how to uncheck this option.

Best,
Lado

"Ron de Bruin" wrote in message
...
See this part of my site
http://www.rondebruin.nl/sendmail.htm#Prevent

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Kiknadze Lado" wrote in message
...
Dear all,

I have excel spreadsheet:
In column A the names of the people
In column B the e-mail Addresses
In column C the Filenames like this C:\Data\Book2.xls This don't have
to be
Excel files.

I have the Macro wich loop through each row in Sheet1 and if there is a
E-mail address
and a filename that exist in that row it will create a mail with this
information and send it.

Sub TestFile()
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim cell As Range
Application.ScreenUpdating = False
Set olApp = New Outlook.Application
For Each cell In
Sheets("Sheet1").Columns("B").Cells.SpecialCells(x lCellTypeConstants)
If cell.Offset(0, 1).Value < "" Then
If cell.Value Like "*@*" And Dir(cell.Offset(0, 1).Value) <
""
Then
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = cell.Value
.Subject = "Testfile"
.Body = "Hi " & cell.Offset(0, -1).Value
.Attachments.Add cell.Offset(0, 1).Value
.Send 'Or use Display
End With
Set olMail = Nothing
End If
End If
Next cell
Set olApp = Nothing
Application.ScreenUpdating = True
End Sub

Problem is that for each sending of e-mail it is necessary confirmation
and
I have to press button "YES".
How I can avoid pressing on "YES" and to send everything automatically.

Best wishes,
Lado

Read good!!

For Outlook see this webpage
http://www.dimastr.com/redemption/
OR Express ClickYes
http://www.express-soft.com/mailmate/clickyes.html


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Kiknadze Lado" wrote in message ...
Thank you for your answer.
I'm using MS Outlook and I couldn't find how to uncheck this option.

Best,
Lado

"Ron de Bruin" wrote in message
...
See this part of my site
http://www.rondebruin.nl/sendmail.htm#Prevent

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Kiknadze Lado" wrote in message
...
Dear all,

I have excel spreadsheet:
In column A the names of the people
In column B the e-mail Addresses
In column C the Filenames like this C:\Data\Book2.xls This don't have
to be
Excel files.

I have the Macro wich loop through each row in Sheet1 and if there is a
E-mail address
and a filename that exist in that row it will create a mail with this
information and send it.

Sub TestFile()
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim cell As Range
Application.ScreenUpdating = False
Set olApp = New Outlook.Application
For Each cell In
Sheets("Sheet1").Columns("B").Cells.SpecialCells(x lCellTypeConstants)
If cell.Offset(0, 1).Value < "" Then
If cell.Value Like "*@*" And Dir(cell.Offset(0, 1).Value) <
""
Then
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = cell.Value
.Subject = "Testfile"
.Body = "Hi " & cell.Offset(0, -1).Value
.Attachments.Add cell.Offset(0, 1).Value
.Send 'Or use Display
End With
Set olMail = Nothing
End If
End If
Next cell
Set olApp = Nothing
Application.ScreenUpdating = True
End Sub

Problem is that for each sending of e-mail it is necessary confirmation
and
I have to press button "YES".
How I can avoid pressing on "YES" and to send everything automatically.

Best wishes,
Lado

Thank you Ron,

I did already and it works but I don't know person who will use this program
want's to install "express clickYES" program. I will try to find out with
him.

Thank you for your help,
Lado

"Ron de Bruin" wrote in message
...
Read good!!

For Outlook see this webpage
http://www.dimastr.com/redemption/
OR Express ClickYes
http://www.express-soft.com/mailmate/clickyes.html


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Kiknadze Lado" wrote in message
...
Thank you for your answer.
I'm using MS Outlook and I couldn't find how to uncheck this option.

Best,
Lado

"Ron de Bruin" wrote in message
...
See this part of my site
http://www.rondebruin.nl/sendmail.htm#Prevent

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Kiknadze Lado" wrote in message
...
Dear all,

I have excel spreadsheet:
In column A the names of the people
In column B the e-mail Addresses
In column C the Filenames like this C:\Data\Book2.xls This don't
have
to be
Excel files.

I have the Macro wich loop through each row in Sheet1 and if there
is a
E-mail address
and a filename that exist in that row it will create a mail with
this
information and send it.

Sub TestFile()
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim cell As Range
Application.ScreenUpdating = False
Set olApp = New Outlook.Application
For Each cell In

Sheets("Sheet1").Columns("B").Cells.SpecialCells(x lCellTypeConstants)
If cell.Offset(0, 1).Value < "" Then
If cell.Value Like "*@*" And Dir(cell.Offset(0,
1).Value) <
""
Then
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = cell.Value
.Subject = "Testfile"
.Body = "Hi " & cell.Offset(0, -1).Value
.Attachments.Add cell.Offset(0, 1).Value
.Send 'Or use Display
End With
Set olMail = Nothing
End If
End If
Next cell
Set olApp = Nothing
Application.ScreenUpdating = True
End Sub

Problem is that for each sending of e-mail it is necessary
confirmation
and
I have to press button "YES".
How I can avoid pressing on "YES" and to send everything
automatically.

Best wishes,
Lado