A Microsoft Outlook email forum. Outlook Banter

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » Outlook Banter forum » Microsoft Outlook Email Newsgroups » Outlook and VBA
Site Map Home Register Authors List Search Today's Posts Mark Forums Read Web Partners

Macro to send files



 
 
Thread Tools Search this Thread Display Modes
  #1  
Old June 21st 06, 04:56 PM posted to microsoft.public.outlook.program_vba
Michael Bauer
external usenet poster
 
Posts: 435
Default Macro to send files

Am Wed, 21 Jun 2006 01:40:02 -0700 schrieb SBárbara:

Sandra, don´t worry, you don´t give work. I can tell you what to do, but
it´s your turn to do it then.

You could check the two lines I gave you. Using that FileSystemObject is the
easiest way. If for any reason it´s not on your PC you could try the sample.

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


Sorry, but I am not programmer. Therefore it is difficult to understand

the
necessary language… therefore i need a macro (already prepared) that it

goes
to search a file or files in a folder and annex to a message, with

subject
and body of message.

I'm sorry for the work that I am giving…

Regards,
Sandra Bárbara

"Michael Bauer" escreveu:

Am Tue, 20 Jun 2006 08:30:02 -0700 schrieb SBárbara:

That makes me curious. Do you get an error when running this:

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

If there´s no error the Scripting Runtime exists.

However, here is a sample for getting all files in a folder:
http://vbnet.mvps.org/code/fileapi/recursesave.htm

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


Yes...but it wasn't there...


"Michael Bauer" escreveu:

Am Mon, 19 Jun 2006 15:24:04 -0700 schrieb SBárbara:

That entry should be in the mentioned dialog. Did you look there?

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


Hi,

Thanks for your answer, but i need some help.
I don't find "Microsoft Scripting Runtime" Thanks
Can you help me?

Thanks
SBárbara

"Michael Bauer" escreveu:

Am Fri, 16 Jun 2006 09:52:01 -0700 schrieb SBárbara:

Easy to use for getting the files is the "Microsoft Scripting

Runtime"
library, you can reference it via Tools/References. Its

FileSystemObject
has
the GetFolder function, which returns a Folder object, which in turn
provides you with a Files list.

Loop through that list and call for each file Outlook´s CreateItem
function
to create a new MailItem. Append the file to the MailItem´s
Attachment.Add
function.

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


Hi,

I need a macro to get the files in a folder and send each file to
different
addresses.

Somebody can help me?

Regards,
SBárbara



 




Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
script/macro to send auto reply to sender ah Outlook and VBA 6 June 22nd 06 04:21 PM
Create a macro to send e-mails to microsoft image writer Scott Outlook and VBA 1 June 9th 06 06:37 PM
Macro to kick in every time I send a message Jyoti Outlook and VBA 5 May 27th 06 11:04 AM
Cant send jpg files Bill Hepworth Outlook Express 4 May 22nd 06 06:54 PM
open outlook data files from vbscript / macro? Mad Scientist Jr Outlook and VBA 2 January 24th 06 10:20 PM


All times are GMT +1. The time now is 03:53 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2025 Outlook Banter.
The comments are property of their posters.