That's the security dialog I've mentioned. If the code runs in Outlook 2003
then delete the Set oApp = ... line and for the rest of code replace oApp by
Application.

BTW: 'Viele Gruesse' is German and literally means 'Many Greetings', it's
not my or any other's name :-)

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.VBOffice.net --


Am Tue, 14 Nov 2006 10:45:01 -0800 schrieb adi:

Michael and Viele,
Thanks for your advise. I coded the following and it worked for me.
However
teh problem i have is a dailog box is being displayed waiting for my
input.
The e-mail is being sent only if i click the YES. I want to
avoid/suppress
this msgbox. If suppression is not possible then i want to code in such a
way
that the message box takes a default YES as if i clicked explicitly.

The message/dailog box reads.
"A program is trying to send an e-mail on your behalf.
Do you want to allow this?
If this is unexpected, this may be a virus and should choose NO."

How to suppress this dailog box? (if not atleast how to code so that it
takes YES as my default input)

Again thanks a lot for your time and appreciate your help.


Code that worked:
---------------------
Sub Macro3()
Dim oApp As Outlook.Application
Dim oMail As Outlook.MailItem
Dim strContenu As String

Set oApp = CreateObject("Outlook.Application")

Set oMail = oApp.CreateItem(olMailItem)
strContenu = "Email sent"
strContenu = strContenu + Chr(13) + Chr(10) + "next line"

Set myAttachments = oMail.Attachments
myAttachments.Add "C:\Adi\Atlas\atlas-calender.txt", olByValue, 1,
"Fichier"

oMail.Body = strContenu
oMail.To = "
oMail.Subject = "testttttt"

oMail.Send
oApp.Quit
Set oApp = Nothing
End Sub


"Michael Bauer [MVP - Outlook]" wrote:


Both, Word and Outlook is possible but if you have the code in Outlook
2003
running then there're no security prompts.

In OUtlook you can create a new e-mail with the CreateItem function. If
all
the recipients should get the same message then simply add them all to
the
MailItem's Recipients collection by calling Recipients.Add. The function
returns a Recipient object for which you can determine its type (olCC,
olbCC
etc.). For plain text use the Body property else the HTMLBody property.
Add
the attachment by calling Attachments.Add. That's it.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.VBOffice.net --


Am Mon, 13 Nov 2006 21:09:01 -0800 schrieb adi:

Hi,
I am a novice at VBA programming but realised it is very powerful and
useful.
I have a need to send e-mails to 10 different id's.
Given a (a)from address (b)To address(b)Subject(d)BCC(e)CC(f)Document to
send as attatchment(g)e-mail body, how to write a program that can send
e-mails automatically just by running it?
Is it easier to do it from Word or from Outlook.?
I tried to record and look at the macro that Word generates while trying
to
open a doc and send e-mail. But the macro does not give any details
about
the
mail specifics. It just has ActiveDocument.SendMail.

How can i do this? Please advise.