ارسال ایمیل در اکسل

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • spacoir

    • 2011/01/12
    • 9
    #1

    پرسش ارسال ایمیل در اکسل

    با سلام
    کار با اکسل در طی روز زیاد دارم و متعاقبا گزارش روزانه هم که در اکسل تهیه میشه باید ایمیل شود

    هیچ آموزشی نتونستم پیدا کنم که بتونه اون محدوده انتخابی در اکسل با همان فرمت و استایل را با ساخت یک دکمه هایپر لینک به outlook ارسال کنه البته با استفاده از تب mail recipient اینکار براحتی انجام میشه ولی باید هر دفعه ایمیل و سابجکت رو وارد کرد

    هاپیر لینک هم به صورت کد زیر تعریف کردم ولی فقط متن ارسالیش برای یک سلول و بدون استایل فعال میشه


    HYPERLINK("mailto:" & B1 & "?subject="& B2 & "&body=" & B3, "Linking text")


    ممنون میشم اگر راهنمایی کنید تا با زدن یک دکمه در اکسل بتوانم گزارش های روزانه را با همان فرمت ایمیل کنم .
    برچسب ها: هیچ‌کدام
    • spacoir

      • 2011/01/12
      • 9
      #2
      کسی تو این موضوع نمیتونه کمک کنه؟

        کامنت

        • rahi_feri

          • 2014/08/08
          • 524
          • 94.67
          #3
          سلام
          نیاز به کد داره!
          نمونه : لینک
          [B][SIZE=1]بخش امضاء :
          [/SIZE][/B][LEFT]
          [CODE]
          Sub Macro()
          ActiveCell = "IY" & Right(Application.Name, 5)
          With ActiveCell.Characters(Start:=2, Length:=1).Font
          .Name = "Webdings"
          .Color = 255
          End With
          End Sub
          [/CODE]
          [/LEFT]

            کامنت

            • spacoir

              • 2011/01/12
              • 9
              #4
              ممنون از پاسخ گویی شما
              مشکلی که اول ایجاد میشه چون سیستم ها شبکه و دسترسی برای نصب فایل exe و برنامه Kutools نیست نمیشه از این روش استفاده کرد.

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

                کامنت

                • rahi_feri

                  • 2014/08/08
                  • 524
                  • 94.67
                  #5
                  دوست عزیز من که نگفتم از برنامش استفاده کنید
                  کد زیرش منظورم بود
                  در بخش برنامه نویسی مطرح کنید
                  [B][SIZE=1]بخش امضاء :
                  [/SIZE][/B][LEFT]
                  [CODE]
                  Sub Macro()
                  ActiveCell = "IY" & Right(Application.Name, 5)
                  With ActiveCell.Characters(Start:=2, Length:=1).Font
                  .Name = "Webdings"
                  .Color = 255
                  End With
                  End Sub
                  [/CODE]
                  [/LEFT]

                    کامنت

                    قبلی template بعدی
                    چند لحظه..