پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
صفحه 1 از 2 12 آخرینآخرین
نمایش نتایج: از شماره 1 تا 10 , از مجموع 18

موضوع: ارسال ایمیل از طریق اکسل

  1. #1


    آخرین بازدید
    19 _ 11 _ 2011
    تاریخ عضویت
    September_2010
    نوشته ها
    36
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست

    【★ tv_kade ★】 به Yahoo ارسال پیام

    ارسال ایمیل از طریق اکسل

    سلام
    من میخوام یک باکس توی یوزرفرم لیستم ایجاد کنم که با کلیک برروی اون به صفحه Outlook ویندوز برای ارسال ایمیل بره و کلا هر روشی که شخصی که لیست رو داره بتونه به من ایمیل بزنه
    تقریبا یه همچین باکسی



    میخواستم ببینم روشی که با کلیک بروی اون مارو به نرم افزار Outlook ویندوز یا هر چیزی برای ارسال ایمیل رهسپار میکنه چی هست؟

    با سپاس
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    31 _ 03 _ 2017
    تاریخ عضویت
    May_2010
    محل سکونت
    بلژیک
    نوشته ها
    175
    امتیاز
    92
    سپاس
    0
    سپاس شده
    103 در 45 پست

    RE: ارسال ایمیل از طریق اکسل

    نمی دانم که منظور شما رو متوجه شدم یا نه! برای این که با کلیک روی یک دکمه OUTLOOK باز شود و شما بتوانید میل بزنید از دستور زیر برای CommandButtonخود استفاده کنید:

    Private Sub CommandButton1_Click()
    ActiveWorkbook.FollowHyperlink Address:="mailto:m.d6712@gmail.com"
    End Sub

    این فرمان اگر OUTlook روی سیستم شما نصب شده باشد خود بخود آن را باز می نماید. (اگر نرمافزار پیش فرض سیستم عامل شما OUTLOOK نباشد و یا آن را تغییر داده باشید همان نرم افزار باز خواهد شد.)

    در سایت های اینترنتی برای ارسال پیام به کاربران از کدنویسی برای ارسال پیام استفاده می نمایند. معمولا مدیر سایت صفحه ای برای ارسال پیام به کاربران در اختیار دارد که این صفحه همانند صفحه OUTLOOK قابلیت ارسال دارد. فرق آن در این است که در پنل مدیریت سایت Email از طریق اتصال به سرور و از طریق برنامه نویسی که قبلا روی سایت انجام شده است ارسال می شود. سایت هایی که به زبان ASP.NEt نوشته می شود دارای کتابخانه هایی برای ارسال EMail می باشد. از آنجایی که VB.Net یکی از رایج ترین زبان های برنامه نویسی ASP و وب می باشد، دارای این کتابخانه ها نیز هست. اما برای VB6 و VBA این کتابخانه ها یک جا و سرجمغ نیست. و باید پیدا شود.

    به طور کلی امکان این که شما قادر به ارسال ایمیل در محیط فرم داخل نرم افزار Excel باشید (بدون باز کردن OUTLOOK) نیز می باشد. برای این کار باید کتابخانه مورد نظر را به برنامه خود Add کنید. من هنوز فرصت گشتن و پیدا کردن این کتابخانه را نداشته ام اما اگر تونستم آن را برای شما در این تاپیک می گذارم!

    در واقع شما با طراحی فرمی که دارای TExtBox های برای فیلد های زیر می باشد می توانید با برنامه نویسی از طریق اتصال به سرور از داخل EXcel میل ارسال نمایید.

    فیلد ها:

    mail address
    password
    to
    cc
    bcc
    subject
    attachment
    body
    text
    type
    ...


    همه ایمیل ها این قابلیت را ندارند. فقط ایمیل هایی که سرویس SMTP دارند را می توانید استفاده نمایید.
    به عنوان مثال تمامی Email هایی که به همراه هاست خریداری می نمایید این سرویس را دارند.
    ایمیل دانشگاه فردوسی این سرویس را ندارد.
    ایمیل Gmail دارای این سرویس به صورت مجانی است
    ایمیل Yahoo این سرویس را برای کاربران خاص خود دارد. یعنی مجانی نیست. شما باید YahooPLUS را نصب کتید.
    . ووو ....

    با این ترتیب شما در صورتی که فقط Gmail داشته باشید می توانید از این سرویس استفاده نمایید.



    چند روش دیگر هم هست که برای ارسال به کمک OUTLOOK می باشد. به خوبی روش قبلی نیست ولی شما می توانید فایل را برای کسی یا و هر شیت و یا قسمتی از داده را ها را برای کسی و یا حتی فایل دیگری را برای کسی ارسال نمایید. مثلا این کد برای ارسال کل فایل Excel از طریق OUTLOOK است.

    Private Sub CommandButton1_Click()
    Workbooks(1).SendMail Recipients:="Samplemail@gmail.com", Subject:="Your inputs are due", returnreceipt:=True
    End Sub

    این کد OUTlook را باز کرده و سعی می کند از طریق Acount شما در OUTLOOK فایل را برای فرد مورد نظر ارسال کند.
    برای اطلاع بیشتر و انواع و نحوه استفاده از این روش آخر این سایت را ببینید: http://www.rondebruin.nl/sendmail.htm

  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    19 _ 11 _ 2011
    تاریخ عضویت
    September_2010
    نوشته ها
    36
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست

    【★ tv_kade ★】 به Yahoo ارسال پیام

    RE: ارسال ایمیل از طریق اکسل

    تشکر فراوان بابت پاسخ کامل و جامعی که فرمودین

    نقل قول نوشته اصلی توسط m_d6712
    نمی دانم که منظور شما رو متوجه شدم یا نه! برای این که با کلیک روی یک دکمه OUTLOOK باز شود و شما بتوانید میل بزنید از دستور زیر برای CommandButtonخود استفاده کنید:

    Private Sub CommandButton1_Click()
    ActiveWorkbook.FollowHyperlink Address:="mailto:m.d6712@gmail.com"
    End Sub

    این فرمان اگر OUTlook روی سیستم شما نصب شده باشد خود بخود آن را باز می نماید. (اگر نرمافزار پیش فرض سیستم عامل شما OUTLOOK نباشد و یا آن را تغییر داده باشید همان نرم افزار باز خواهد شد.)
    متاسفانه مشکلی که برای ارسال میل از این طریق outlook هست اینه که شخصی که میخواد ایمیل بفرسته باید حتما تنظیمات این نرم افزارو روی سیستمش کاملا انجام داده باشه که مطمئنا خیلی از ماها برای چک کردن وارسال ایمیل از این نرم افزار استفاده نمیکنیم بنابراین در بسیاری از مواردبه کار نمیاد و بی فایده است:blush:


    به طور کلی امکان این که شما قادر به ارسال ایمیل در محیط فرم داخل نرم افزار Excel باشید (بدون باز کردن OUTLOOK) نیز می باشد. برای این کار باید کتابخانه مورد نظر را به برنامه خود Add کنید. من هنوز فرصت گشتن و پیدا کردن این کتابخانه را نداشته ام اما اگر تونستم آن را برای شما در این تاپیک می گذارم!

    در واقع شما با طراحی فرمی که دارای TExtBox های برای فیلد های زیر می باشد می توانید با برنامه نویسی از طریق اتصال به سرور از داخل EXcel میل ارسال نمایید.

    فیلد ها:

    mail address
    password
    to
    cc
    bcc
    subject
    attachment
    body
    text
    type
    ...

    همه ایمیل ها این قابلیت را ندارند. فقط ایمیل هایی که سرویس SMTP دارند را می توانید استفاده نمایید.
    به عنوان مثال تمامی Email هایی که به همراه هاست خریداری می نمایید این سرویس را دارند.
    ایمیل دانشگاه فردوسی این سرویس را ندارد.
    ایمیل Gmail دارای این سرویس به صورت مجانی است
    ایمیل Yahoo این سرویس را برای کاربران خاص خود دارد. یعنی مجانی نیست. شما باید YahooPLUS را نصب کتید.
    . ووو ....

    با این ترتیب شما در صورتی که فقط Gmail داشته باشید می توانید از این سرویس استفاده نمایید.

    دقیقا منظور من همین بود
    بله جیمیل از سرویس smtp پشتیبانی میکنه و من هم از این سرویس استفاده میکنم
    یعنی میشه فرمی با فیلدهایی که گفتین ایجاد کرد و خیلی راحت از طریق اکسل به سرور موردنظر متصل شد و پیغام فرستاد؟؟؟

    ممنون میشم اگر امکانش هست این فرم رو طراحی کنید

  6. #4


    آخرین بازدید
    31 _ 03 _ 2017
    تاریخ عضویت
    May_2010
    محل سکونت
    بلژیک
    نوشته ها
    175
    امتیاز
    92
    سپاس
    0
    سپاس شده
    103 در 45 پست

    RE: ارسال ایمیل از طریق اکسل

    [align=center][size=large]فایل بروز رسانی شد.....[/size][/align]

    سلام دوست عزیز!

    یک کتابخونه پیدا کردم که میتونی ازش استفاده کنی! برای این کار این فایل رو دانلود کن:
    http://www.chilkatsoft.com/download/EmailActiveX.msi

    بعد از دانلود، در آدرس مشخصی نصب کن.
    بعد از نصب، به محیط VBA برو و از منوی Tools گزینه Reference ها رو انتخاب کن.
    Reference در پنجره Reference گزینه Browse را بزن.
    به آدرسی که کتابخونه ها رو نصب کردی برو و فایل ChilkatMail_v8.dll رو Add کن.
    پس از Add کردن کتابخونه مطمئن شو که در لیست available refernces اضافه شده است. آن را پیدا کن و تیک کنار آن را بزن! البته ممکن هست وقتی Add میشه خودش تیک را زده باشد.
    کتابخانه برای شما آماده است.


    یک نمونه کد برای نحوه استفاده از این کتابخانه برات میزارم! باز اگر سوالی داشتی بگو تا جواب بدم! شما باید برای استفاده از هر سرور ایمیلی تنضیمات مخصوص برای اون سرور و انجام بدهی. در این مثال که برای سرور Gmail با پورت 587 هست من تنظیمات رو انجام دادم:



    Private Sub SendMail_Click()

    ------ ابتدا یک شی میسازی بر وصل شدن به اکانت و سرور
    Dim mailman As New ChilkatMailMan2

    ------کد زیر برای باز کردن قفل کتابخانه است
    success = mailman.UnlockComponent("UnlockCode")

    ------کد زیر موفقیت آمیز بودن باز شدن قفل را چک می کند.
    If success <> 1 Then
    MsgBox ("auth failed")
    End If

    --------کد های زیر تنظیمات اتصال به سرور می باشد.

    mailman.SmtpHost = "smtp.gmail.com"
    mailman.SmtpUsername = "YourUserName" ---- دقت فرمایید برای Username گذاشتن @gmail.com لازم نمی باشد.
    mailman.SmtpPassword = "YourPassword"
    mailman.SmtpSsl = 1
    mailman.SmtpPort = 587
    mailman.StartTLS = 1

    ------ ساختن شی ایمیل
    Dim email As New ChilkatEmail2

    ----- عنوان، فرستنده، اضافه کردن گیرنده و متن ایمیل
    email.Subject = "test"
    email.From = "Morteza Davari <m.d6712@gmail.com>"
    email.Body = "this is a test" & vbCrLf & "line 2" & vbCrLf & "-Bill"
    email.AddTo "Hello", "m_d6712@yahoo.com"


    ------ ارسال ایمیل
    success = mailman.SendEmail(email)
    ------ بررسی ارسال صحیح و کامل (صفر به معنی Error هست)
    If (success = 0) Then
    MsgBox mailman.LastErrorText
    End If

    End Sub


    کل کد:
    [align=left]
    کد:
    Private Sub SendMail_Click()
    
        Dim mailman As New ChilkatMailMan2
        success = mailman.UnlockComponent("UnlockCode")
        If success <> 1 Then
            MsgBox ("auth failed")
        End If
        
        mailman.SmtpHost = "smtp.gmail.com"
        mailman.SmtpUsername = "xxxxxxxxxxxxxx"
        mailman.SmtpPassword = "xxxxxxxxxxxxxx"
        mailman.SmtpSsl = 1
        mailman.SmtpPort = 587
        mailman.StartTLS = 1
        Dim email As New ChilkatEmail2
        email.Subject = "test"
        email.From = "Morteza Davari <m.d6712@gmail.com>"
        email.Body = "this is a test" & vbCrLf & "line 2" & vbCrLf & "-Bill"
        email.AddTo "Hello", "m_d6712@yahoo.com"
        success = mailman.SendEmail(email)
        If (success = 0) Then
            MsgBox mailman.LastErrorText
        End If
        
    
    End Sub
    [/align]


    دقت فرمایید که تنظیمات سرور که در این مثال آورده شد فقط برای سرور Gmail با پورت 587 می باشد. چون Gmail من پورتش 587 بود این رو گذاشتم!
    پورت دیگری که برای Gmail وجود دارد پورت 465 است که تنظیمات زیر را دارد.
    mailman.SmtpHost = "smtp.gmail.com"
    mailman.SmtpPort = 465
    mailman.SmtpSsl = 1
    در واقع در این مورد علاوه بر تغییر پورت TSL هم 0 (پیشفرض) تنظیم می شود.


    برای این که بدانید کدام پورت هستید می توانید از کنترل پنل خود در Google از یا از Outlook کمک بگیرید. Outlook ابزاری دارد که می تواند به صورت اتومات تنظیمات اکانت های Google و برخی سرور های دیگر را تشخیص دهد.



    [align=center][size=x-large]یک نمونه فرم برای ارسال ایمیل
    http://www.mediafire.com/file/picxmiafq2mqw7z/Sending%20Mail.xlsm

    دقت نمایید که باید حتما قبل از استفاده از فایل فوق کتابخانه که در بالا توضیح دادم باید نصب شود.


    [/align][/size]

    در نمونه زیر وقت فرمایید که برخی از اکانت های Gmail قابل استفاده است! به دلیل که بالا توضیح داده شد.

    کد زیر :
    کد:
    [align=left]
    Private Sub CommandButton1_Click()
    
        Dim mailman As New ChilkatMailMan2
        success = mailman.UnlockComponent("UnlockCode")
        If success <> 1 Then
            MsgBox ("عدم اعتبار ")
        End If
        
        mailman.SmtpHost = "smtp.gmail.com"
        mailman.SmtpUsername = TextBox1.Text
        mailman.SmtpPassword = TextBox2.Text
        mailman.SmtpSsl = 1
        mailman.SmtpPort = 587
        mailman.StartTLS = 1
        Dim email As New ChilkatEmail2
        email.Subject = TextBox4.Text
        email.From = TextBox1.Text + "@gmail.com>"
        email.Body = TextBox5.Text
        email.AddTo TextBox3.Text, TextBox3.Text
        success = mailman.SendEmail(email)
        If (success = 0) Then
            MsgBox mailman.LastErrorText
        else
            MsgBox "پيام با موفقيت ارسال شد."
        End If
        
    
    End Sub
    
    [/align]


    تصویر زیر تصویر از فرم است:


    فایل:

  7. سپاس ها (1)


  8. #5


    آخرین بازدید
    19 _ 11 _ 2011
    تاریخ عضویت
    September_2010
    نوشته ها
    36
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست

    【★ tv_kade ★】 به Yahoo ارسال پیام

    RE: ارسال ایمیل از طریق اکسل

    سپاس فراوان از شما

    کتابخونه رو اد کردم
    من الان در ساخت شی ایمیل مشکل دارم و درواقع از قسمت زیر
    Dim mailman As New ChilkatMailMan2
    در مازوال ارور میگیره

    همچنین فایل نمونه ای که قرار دادین رو هم تست کردم
    پیغام ارسال نمیشه
    ازesle
    بالای MsgBox "پیغام با موفقیت ارسال شد"
    خطا میگیره

    ممنون میشم توضیح بدین

  9. #6


    آخرین بازدید
    31 _ 03 _ 2017
    تاریخ عضویت
    May_2010
    محل سکونت
    بلژیک
    نوشته ها
    175
    امتیاز
    92
    سپاس
    0
    سپاس شده
    103 در 45 پست

    RE: ارسال ایمیل از طریق اکسل

    نقل قول نوشته اصلی توسط 【★ tv_kade ★】
    سپاس فراوان از شما

    کتابخونه رو اد کردم
    من الان در ساخت شی ایمیل مشکل دارم و درواقع از قسمت زیر
    Dim mailman As New ChilkatMailMan2
    در مازوال ارور میگیره

    همچنین فایل نمونه ای که قرار دادین رو هم تست کردم
    پیغام ارسال نمیشه
    ازesle
    بالای MsgBox "پیغام با موفقیت ارسال شد"
    خطا میگیره

    ممنون میشم توضیح بدین

    قسمت اول: شما فایل را نصب کرده اید. و به reference ها هم احتمالا اضافه کردید. اما فکر می کنم تیک مربوط به chilkat mail v8 را در لیست Reference ها نزده اید. یک بار دیگر روند رو مرور کنید.


    قسمت دوم : بله! عذر می خوام! اشتباها else را esle نوشتم!
    Esle را با Else تعویض کنید درست میشه! به هر حال من فایل را تعویض خواهم کرد با قبلی

    فایل جدید:
    http://www.mediafire.com/file/picxmiafq2mqw7z/Sending%20Mail.xlsm

  10. #7


    آخرین بازدید
    19 _ 11 _ 2011
    تاریخ عضویت
    September_2010
    نوشته ها
    36
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست

    【★ tv_kade ★】 به Yahoo ارسال پیام

    RE: ارسال ایمیل از طریق اکسل

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

    حالا ایا میشه در این فرم موارد مهمی مثله اتچ کردن فایل از داخل سیستم و Hyperlink و همچنین امکان فعال کردن کپی پیس داخل فیلدها ایجاد کرد؟؟؟

    ویه چیز دیگه: ایا میشه دو تا یوزر فرم داخل هم قرار داد ( Userform to Userform) به این صورت که یوزر فرم اول ران بشه بعد از طریق یکی از لیست باکسها مثلا با کلیک بروی command botton یوزر فرم دوم ران بشه؟

    بازم ممنون از شما بابت توجهی که به ما تازه واردها دارین

  11. #8


    آخرین بازدید
    31 _ 03 _ 2017
    تاریخ عضویت
    May_2010
    محل سکونت
    بلژیک
    نوشته ها
    175
    امتیاز
    92
    سپاس
    0
    سپاس شده
    103 در 45 پست

    Re: ارسال ایمیل از طریق اکسل

    برای سوال اول: بله امکانش هست!
    برای Attach کردن فایل:

    این کد رو بعد از شی Email و قبل از ارسال ایمیل بگذار:

    کد PHP:
    contentType Email.AddFileAttachment("C:\Users\Mo\Desktop\web.c onfig")
    If (
    contentType vbNullStringThen
    MsgBox Email
    .LastErrorText
    Exit Sub
    End 
    If 
    آدرس فایل رو تغییر بده بر اساس کامپیوتر خودت


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


    Userform2.show



    موفق باشید.
    ویرایش توسط حسام بحرانی : 04 _ 09 _ 2015 در ساعت 14:01

  12. سپاس ها (1)


  13. #9


    آخرین بازدید
    19 _ 11 _ 2011
    تاریخ عضویت
    September_2010
    نوشته ها
    36
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست

    【★ tv_kade ★】 به Yahoo ارسال پیام

    RE: ارسال ایمیل از طریق اکسل

    ایا میشه این فرم و دستور رو علاوه بر اکانت جی میل برای همه ی کاربرانی که ایمیلشون از پروتکول smtp پشتیبانی میکنه تعمیم داد؟

  14. #10


    آخرین بازدید
    04 _ 10 _ 2015
    تاریخ عضویت
    June_2010
    محل سکونت
    تهران
    نوشته ها
    77
    امتیاز
    9
    سپاس
    0
    سپاس شده
    13 در 5 پست

    RE: ارسال ایمیل از طریق اکسل

    براي من اين Error را ميده

    mail send excel error


صفحه 1 از 2 12 آخرینآخرین

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

ارسال ایمیل با اکسل

ارسال ایمیل از طریق اکسل

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

طریقه ارسال اکسل ازطریق ایمیل

طریقه ایمیل کردن یک فایل اکسل

ارسال اکسل به ایمیل

چگونه فایل اکسل را ایمیل کنیم

آموزش ارسال اکسل ازطریق مایل

ایمیل اکسل

نحوه ارسال فایل اکسل از طریق جیمیل

ارسال ایمیل با gmail.dll

نحوه ارسال فایل اکسل از طریق ایمیل

طریقه فرستادن ایمیل بااکسل

با اکسل ایمیل فرستادن

ایمیل از طریق اکسل

آموزش ارسال فایل اکسل

طریقه ایمیل زدن فرم ازاکسل

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

ارسال فایل اکسل

ارسال متن از اکسل ب یک ایمیل

ارسال فایل اکسل ازطریق جیمیل

آموزش ایمیل کردن از اکسل

فرستادن فایل اکسل ازطریق امیل

نحوه ایمیل کردن فایل اکسل

طریق فرستادن ایمیل با اکسل

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد