ارسال فایل اکسل به عنوان ضمیمه ایمیل

**Nima** · 2014/03/08, 10:18

با سلام

لینک زیر مراجعه کنید

Send mails using VBA and Outlook - How to send emails using Excel

http://chandoo.org/wp/2012/04/23/send-mails-using-excel-vba-and-outlook/

Ever wondered how we can use Excel to send emails thru Outlook? We can use Excel VBA Macros to send emails to others thru Outlook. Scenario: We have an excel based reporting template. We want to update this template using VBA code to create a static version and email it to a list of people. We will define the recipient list in a separate sheet.

**mokaram** · 2014/03/08, 10:54

ممنون آقا نیما فقط چه جوری میتونم فایلی را که میخوام ایمیل کنم را بهش معرفی کنم ( توضیح : این فایل که باهاش کار میکنم فقط وظیفش ارسال هست فایل اصلی جای دیگس)

**Nima** · 2014/03/08, 11:21

دوست عزیز برای اینکار میتونید از ماژول زیر استفاده کنید فقط یک نکته اینکه قسمتهای To,CC,BCC رو باید عوض کنید و برای اینکه قبل از ارسال ایمیل بتونید یک preview داشته باشید .send رو به. display تغییر بدین و اگه میخواید که فایل جداگانه ای رو ATTACHE کنید قسمتی از کد که بعد از جمله You can add other files by uncommenting the following line مشخص شده رو اکتیو کنید

در ضمن این کد وقتی کار میکنه که شما تو outlook اکانمتونو ست اپ کرده باشید:

کد:

[COLOR=blue]Sub[/COLOR] Mail_Workbook_1()
[COLOR=green]' Works in Excel 2000, Excel 2002, Excel 2003, Excel 2007, Excel 2010, Outlook 2000, Outlook 2002, Outlook 2003, Outlook 2007, Outlook 2010.[/COLOR]
[COLOR=green]' This example sends the last saved version of the Activeworkbook object .[/COLOR]
    [COLOR=blue]Dim[/COLOR] OutApp [COLOR=blue]As[/COLOR] [COLOR=blue]Object[/COLOR]
    [COLOR=blue]Dim[/COLOR] OutMail [COLOR=blue]As[/COLOR] [COLOR=blue]Object[/COLOR]

    [COLOR=blue]Set[/COLOR] OutApp = CreateObject([COLOR=#A31515]"Outlook.Application"[/COLOR])
    [COLOR=blue]Set[/COLOR] OutMail = OutApp.CreateItem(0)

    [COLOR=blue]On[/COLOR] [COLOR=blue]Error[/COLOR] [COLOR=blue]Resume[/COLOR] [COLOR=blue]Next[/COLOR]
   [COLOR=green]' Change the mail address and subject in the macro before you run it.[/COLOR]
    [COLOR=blue]With[/COLOR] OutMail
        .[COLOR=blue]To[/COLOR] = [COLOR=#A31515]"ron@debruin.nl"[/COLOR]
        .CC = [COLOR=#A31515]""[/COLOR]
        .BCC = [COLOR=#A31515]""[/COLOR]
        .Subject = [COLOR=#A31515]"This is the Subject line"[/COLOR]
        .Body = [COLOR=#A31515]"Hello World!"[/COLOR]
        .Attachments.Add ActiveWorkbook.FullName
        [COLOR=green]' You can add other files by uncommenting the following line.[/COLOR]
        [COLOR=green]'.Attachments.Add ("C:\test.txt")[/COLOR]
        [COLOR=green]' In place of the following statement, you can use ".Display" to[/COLOR]
        [COLOR=green]' display the mail.[/COLOR]
        .Send   
    [COLOR=blue]End[/COLOR] [COLOR=blue]With[/COLOR]
    [COLOR=blue]On[/COLOR] [COLOR=blue]Error[/COLOR] [COLOR=blue]GoTo[/COLOR] 0

    [COLOR=blue]Set[/COLOR] OutMail = [COLOR=blue]Nothing[/COLOR]
    [COLOR=blue]Set[/COLOR] OutApp = [COLOR=blue]Nothing[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]

**mokaram** · 2014/03/08, 11:49

اکسل 2013 را هم ساپورت میکنه؟

**Nima** · 2014/03/08, 12:02

بعله ساپورت میکنه

ارسال فایل اکسل به عنوان ضمیمه ایمیل

ارسال فایل اکسل به عنوان ضمیمه ایمیل

کامنت

کامنت

کامنت

کامنت

کامنت