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

Collapse
X
 
  • زمان
  • Show
Clear All
new posts
  • mokaram
    مدير تالار اکسل و بانک اطلاعاتی

    • February 2011
    • 1805

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

    با سلام خدمت دوستان
    یه فایلی را من هر روز برای عده ای از کاربران ایمیل می کنم حالا میخوام این کار از طریق اکسل انجام بشه یعنی تو تکست باکسهای آدرس ، آدرس گیرنده را وارد کنم و مهمترین قسمت اون به قولی اتچ کردن فایل اکسل هست برای اینکار نمیدونم چیکار کنم و هم چنین کد ارسال ایمیل. ممنون
    فایل های پیوست شده

  • Nima

    • July 2011
    • 385

    #2
    با سلام

    لینک زیر مراجعه کنید
    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.
    ************************************
    No LION's roar ruins my hut, I afraid of TERMITE's silence
    ************************************

    Comment

    • mokaram
      مدير تالار اکسل و بانک اطلاعاتی

      • February 2011
      • 1805

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

      Comment

      • Nima

        • July 2011
        • 385

        #4
        دوست عزیز برای اینکار میتونید از ماژول زیر استفاده کنید فقط یک نکته اینکه قسمتهای 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]
        Last edited by Nima; 2014/03/08, 11:35.
        ************************************
        No LION's roar ruins my hut, I afraid of TERMITE's silence
        ************************************

        Comment

        • mokaram
          مدير تالار اکسل و بانک اطلاعاتی

          • February 2011
          • 1805

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

          Comment

          • Nima

            • July 2011
            • 385

            #6
            بعله ساپورت میکنه
            ************************************
            No LION's roar ruins my hut, I afraid of TERMITE's silence
            ************************************

            Comment

            Working...