ارسال فایل به وصیله ایمیل

[amir00700 66]

من میخوام چندین فایل رو با ایمیل ارسال کنم و نمیخوام صفحه انتخاب ایمیل و اینا بیاد

یعنی کاملا بدون نمایش

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

تو انجمن سرچ کردم ولی با اونا فایل نمیشد سند داد

[shahan148 28]

من میخوام چندین فایل رو با ایمیل ارسال کنم و نمیخوام صفحه انتخاب ایمیل و اینا بیاد

یعنی کاملا بدون نمایش

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

تو انجمن سرچ کردم ولی با اونا فایل نمیشد سند داد

 

سلام

        SMTP.Initialize("smtp.mail.yahoo.com", 465, "ham43@yahoo.com", "password" , "SMTP")
        SMTP.UseSSL = True

    SMTP.To.Add("rooz8@gmail.com")
    SMTP.Subject = "subject"
    SMTP.Body = "Hi"
	
    SMTP.AddAttachment(File.DirInternal , "/Data.zip")

    SMTP.Send

[shahab.es 5,429]

سلام

شما الان خود متن رو بدون اینتنت و مستقیم با یوزر و پس ارسال میکنید دیگه؟

خوب همون کتابخونه net یه متد داره به اسم addAtachment

ممکنه کد زیر کمکتون کنه

	Dim net1 As SMTP
	net1.AddAttachment(File.DirInternal,"shahab.mp3")