Hi Mahesh,
Thanks a lot for this help, this is really too
helpfull for all outlook users.
I also want to know that if i have to add CC or BCC in mail so what
the changes i have to do in macro. & n pls also tell me if i have to
add yesterday date in body of the mail every day in every mail so what
should i do.
Pls help me in this i will be glad to et this help.
Thanks in Advance
Pankja k Pandey
On 5/15/10, 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 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
>>
>
> --
> ----------------------------------------------------------------------------------
> 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
>
--
Pankaj Pandey
Bhopal
--
----------------------------------------------------------------------------------
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
