This is Superb Mahesh. really helpful for anyone who wants to send repetitive emails to a list of persons.
Can anyone please also tell me its utility from Finance Dept. point of view, what functions have you used this Macro for. thanks Sameer On May 15, 10:49 am, Mahesh parab <mahes...@gmail.com> wrote: > Hi > In attach workbook refer Sendfiles sheet. you can get required info on below > mention link. > > http://www.rondebruin.nl/sendmail.htm > > On Fri, May 14, 2010 at 10:47 PM, Fabio Sascho <fabio.sas...@gmail.com>wrote: > > > > > > > Dear friends > > > Below you can find the code I wrote to make Excel send emails thought a > > list of names > > > My problem is the attachment talk. > > > I need a code that gets all files from a certain directory and attach into > > the email using the “ .attachment.Add” > > > Does anyone know how to do that ? > > > Thanks in advance > > > Dim olApp As Object > > > Dim olMail As Object > > > Dim olSubject > > > Dim olTratamneto > > > Dim olName > > > Dim olMsg > > > Dim FirstLine > > > Dim LastLine > > > Dim olAttachment As FileDialog > > > Dim olAttachmentDirectory As Object > > > LastLine = Cells(65536, 1).End(xlUp).Row > > > olTratamento = InputBox("Insira aqui uma mensagem que vem antes do Nome do > > seu cliente como Dear,Hello, Etc" _ > > > , "Tratamento da Mensagem", "Hello ") > > > olSubject = InputBox("Insira o assunto do email", "Subjetc Box", "BROTHERS > > IN GRANITE OFFER") > > > Set olApp = CreateObject("Outlook.application") > > > Set olMail = olApp.CreateItem(0) > > > Set olAttachment = Application.FileDialog(msoFileDialogFilePicker) > > > With olAttachment > > > .AllowMultiSelect = True > > > End With > > > FirstLine = 2 > > > For i = FirstLine To LastLine > > > olName = Cells(FirstLine, 1).Value > > > With olMail > > > .OriginatorDeliveryReportRequested = True ' delivery confirmation > > > .ReadReceiptRequested = True ' read confirmation > > > .Subject = olSubject > > > .To = Cells(FirstLine, 2).Value > > > .CC = Cells(FirstLine, 3).Value > > > .BCC = Cells(FirstLine, 4).Value > > > .Body = olTratamneto & Chr(32) & Cells(FirstLine, 1).Value & > > Chr(13) & Chr(13) & Sheets("MAIL_OFFER").Cells(1, 1).Value > > > .Attachment.Add = “Several file” > > > End With > > > Next i > > > End Sub > > > -- > > > ---------------------------------------------------------------------------------- > > Some important links for excel users: > > 1. Follow us on TWITTER for tips tricks and links : > >http://twitter.com/exceldailytip > > 2. Join our LinkedIN group @http://www.linkedin.com/groups?gid=1871310 > > 3. Excel tutorials athttp://www.excel-macros.blogspot.com > > 4. Learn VBA Macros athttp://www.quickvba.blogspot.com > > 5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com > > > To post to this group, send email to excel-macros@googlegroups.com > > > <><><><><><><><><><><><><><><><><><><><><><> > > HELP US GROW !! > > > We reach over 6,800 subscribers worldwide and receive many nice notes about > > the learning and support from the group.Let friends and co-workers know they > > can subscribe to group at > >http://groups.google.com/group/excel-macros/subscribe > > -- > ---------------------------------------------------------------------------------- > Some important links for excel users: > 1. Follow us on TWITTER for tips tricks and links > :http://twitter.com/exceldailytip > 2. Join our LinkedIN group @http://www.linkedin.com/groups?gid=1871310 > 3. Excel tutorials athttp://www.excel-macros.blogspot.com > 4. Learn VBA Macros athttp://www.quickvba.blogspot.com > 5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com > > To post to this group, send email to excel-macros@googlegroups.com > > <><><><><><><><><><><><><><><><><><><><><><> > HELP US GROW !! > > We reach over 6,800 subscribers worldwide and receive many nice notes about > the learning and support from the group.Let friends and co-workers know they > can subscribe to group athttp://groups.google.com/group/excel-macros/subscribe > > Outlook(Attachment)Testers.xls > 200KViewDownload- Hide quoted text - > > - Show quoted text - -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> HELP US GROW !! We reach over 6,800 subscribers worldwide and receive many nice notes about the learning and support from the group.Let friends and co-workers know they can subscribe to group at http://groups.google.com/group/excel-macros/subscribe
