تمام مسائل در مورد ایمیل == برنامه ها ، رفع مشکل - Page 3

mehdi25 · 02-13-2006, 01:18 AM

آخرش مجبور میشم مثل سایت وزارت خارجه برای ایمیل هم یه دیتابانک بزارم و online چیزهایی که شبیه به ایمیله رو بخونم

**H_R** · 02-13-2006, 02:54 AM

اگه برای خودت میخوای خوب انکدینگ بروزرت رو درست کن !!! در ضمن اون چیزی که گفتم نوشتنش کاری نداره ها توی کل استرینگ ات کد هر حرف رو با خودش replace کن . همین !! ماسکسیمم 2 ساعت وقتت رو بگیره دیگه !

mehdi25 · 02-13-2006, 06:24 PM

Quote:

نوشته ای از H_R

اگه برای خودت میخوای خوب انکدینگ بروزرت رو درست کن !!! در ضمن اون چیزی که گفتم نوشتنش کاری نداره ها توی کل استرینگ ات کد هر حرف رو با خودش replace کن . همین !! ماسکسیمم 2 ساعت وقتت رو بگیره دیگه !

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

تو این روش دیگه فارسی و انگلیسی میشه نوشت یا اونم مثل برنامه منه ... ؟

**H_R** · 02-13-2006, 08:55 PM

ببین هر حرفی از حروف دنیا توی یونیکد یه کد داره ! همینطرو حروف فارسی از این قائده مثتسنی نیستند ! حالا اگر این حروف به کد هاشون تبدیل بشن تمام مرورگرهای دنیا میتونن اون ها رو بدون نیاز به هیچ تنظیمی و فونتی بشناسن (تمام مرورگرها منظورم پدرمادر دار هاشه !! ) ولی من یه چیزی یادم افتاد که مشکلت رو برطرف میکنه !

http://www27.brinkster.com/mahmoud69...boutIrMail.htm

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

mehdi25 · 02-17-2006, 07:14 AM

آقایون مژده بدم که درست شد
آقای H_R اینطوری میگفتی :

Code:

var farsikey = [
   0x0020, 0x0021, 0x061B, 0x066B, 0x00A4, 0x066A, 0x060C, 0x06AF,
   0x0029, 0x0028, 0x002A, 0x002B, 0x0648, 0x002D, 0x002E, 0x002F,
   0x0030, 0x0031, 0x0032, 0x0033, 0x0034, 0x0035, 0x0036, 0x0037,
   0x0038, 0x0039, 0x003A, 0x0643, 0x003E, 0x003D, 0x003C, 0x061F,
   0x066C, 0x0624, 0x200C, 0x0698, 0x0649, 0x064D, 0x0625, 0x0623,
   0x0622, 0x0651, 0x0629, 0x00BB, 0x00AB, 0x0621, 0x004E, 0x005D,
   0x005B, 0x0652, 0x064B, 0x0626, 0x064F, 0x064E, 0x0056, 0x064C,
   0x0058, 0x0650, 0x0643, 0x062C, 0x005C, 0x0686, 0x00D7, 0x0640,
   0x200D, 0x0634, 0x0630, 0x0632, 0x064A, 0x062B, 0x0628, 0x0644,
   0x0627, 0x0647, 0x062A, 0x0646, 0x0645, 0x067E, 0x062F, 0x062E,
   0x062D, 0x0636, 0x0642, 0x0633, 0x0641, 0x0639, 0x0631, 0x0635,
   0x0637, 0x063A, 0x0638, 0x007D, 0x007C, 0x007B, 0x007E ];

mehdi25 · 03-20-2006, 09:01 PM

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

چون در مورد ایمیل سوالات ز یادی مطرح می شود از مدیران محترم در خواست می شود این تاپیک را به صورت ثابت در این انجمن قرار دهند .

mehdi25 · 03-20-2006, 09:18 PM

Code:

'Sending SMTP mail via port 25 using CDOSYS
'This VB sample uses CDOSYS to send SMTP mail using the cdoSendUsingPort option and specifying a SMTP host.

' Note: It is recommended that all input parameters be validated when they are
' first obtained from the user or user interface.
Private Sub SendMessage(strTo As String, strFrom As String)

'Send using the Port on a SMTP server
Dim iMsg As New CDO.Message
Dim iConf As New CDO.Configuration
Dim Flds As ADODB.Fields
Dim strHTML

Set Flds = iConf.Fields

With Flds
    .Item(cdoSendUsingMethod) = cdoSendUsingPort
    .Item(cdoSMTPServer) = "mail.example.com"
    'Use SSL to connect to the SMTP server:
    '.Item(cdoSMTPUseSSL) = True
    .Item(cdoSMTPConnectionTimeout) = 10
    .Update
End With

' Build HTML for message body
strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<b> This is the test HTML message body</b></br>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"

With iMsg
    Set .Configuration = iConf
    .To = strTo
    .From = strFrom
    .Subject = "This is a test CDOSYS message (Sent by Port)"
    .HTMLBody = strHTML
    '.TextBody = "This is the text body of the message..."

    .Send
End With

' cleanup of variables
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

End Sub

یرگرفته از سایت microsoft

mehdi25 · 03-20-2006, 09:23 PM

اگر می خواهید فایلی را به ایمیل خود ضمیمه کنید از این مثال استفاده کنید

Code:

' Reference to Microsoft ActiveX Data Objects 2.5 Library
' Reference to Microsoft CDO for Exchange 2000 Server Library
' ..
Dim iMsg As New CDO.Message
' configure message here if necessary
With iMsg
   .To = "someone@example.com"
   .From = "another@example.com"
   .Newsgroups = "comp.example.newsgroup1"
   .Subject = "Agenda for staff meeting"
   .TextBody = "See attached docs for more info."
   .AddAttachment "http://example.example.com/picture.gif"
   .AddAttachment "file://d:/temp/test.doc"
   .AddAttachment "C:\files\another.doc"
   ' finish and send
End With

mehdi25 · 03-20-2006, 09:26 PM

این هم یه برنامه ارسال ایمیل که خود microsoft پیشنهاد کرده برای VB کار های عزیز

Code:

<!--
'Sending SMTP mail via the pickup directory using CDOSYS

'This ASP page uses CDOSYS to send SMTP mail using the cdoSendUsingPickup option.  The e-mail is created in the pickup directory of the local SMTP server and delivery is handled by the local SMTP service.
-->

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
'Send using the Pickup directory on the IIS server
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML

Const cdoSendUsingPickup = 1

set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")

' set the CDOSYS configuration fields to use the SMTP service pickup directory
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
.Update
End With

' build HTML for message body
strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<b> This is the test HTML message body</b></br>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"

' apply settings to the message
With iMsg
Set .Configuration = iConf
.To = "nrnoble@example.com"
.From = "nrnoble@example.com"
.Subject = "This is a test CDOSYS message (Pickup directory)"
.HTMLBody = strHTML
.Send
End With

' cleanup of variables
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing


%>
<P> </P>

</BODY>
</HTML>
<!--

mehdi25 · 03-20-2006, 09:31 PM

اینم یه برنامه جالب . خودتون ببینید

Code:

<%@ Language=VBScript %>

<%

' Reference to Microsoft ActiveX Data Objects 2.5 Library
' Reference to Microsoft CDO for Windows 2000 Library

Dim iMsg
Dim iConf
Dim Flds

set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")

' Set the configuration fields.
Set Flds = iConf.Fields

' Set the proxy server to be used.
' TODO: Set "someproxy:80" to the name of your proxy server.
Flds("http://schemas.microsoft.com/cdo/configuration/urlproxyserver") = "someproxy:80"

' Set if this is a local server.
Flds("http://schemas.microsoft.com/cdo/configuration/urlproxybypass") = "<local>"

' Set the option to retrieve the latest content directly from the server.
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update

' Set the message properties.
With iMsg

Set .Configuration = iConf
' Create the MIME representation of the Web page in the message.
' TODO: Change the To and From fields to valid e-mail addresses.
.CreateMHTMLBody "http://www.example.com"
.To = "user1@example.com"
.From = "user2@example.com"
.Subject = "Sample MHTML message..."
.Send
End With

%>

mehdi25 · 03-21-2006, 03:56 AM

این هم یه برنامه دیگه که خودم شخصاً اونو چک کردم و 100% جواب میده .

Code:

<%@LANGUAGE="VBSCRIPT"%>
<%
Dim objCDOSYSCon
Dim strEmail, strWebsite, strAttachment
Dim PadAttachment


Response.Write "From: " & strEmail & "<br />"
Response.Write "From: " & strWebsite & "<br />"


Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")  

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.YourDomain.com"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update

Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "FromEmail@Domain.com"
objCDOSYSMail.To = "YourEmail@YourDomain.com"
objCDOSYSMail.Subject = "Application Help"
objCDOSYSMail.TextBody = "Email Test"
objCDOSYSMail.Send

'Close the server mail object
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
Response. Write " Massege Sended"
%>

mehdi25 · 03-22-2006, 10:58 AM

اینم یه برنامه دیگه که می تونین با این برنامه Cc و Bcc رو هم در فرمتون داشته باشین

Code:

<%option explicit%>
<%
'Using CDOsys with Basic authentication in Classic ASP

'assumes form includes at least:
'form_name - senders name
'form_mail - senders email
'form_subject
'form_body

'Because this code uses authentication, it requires access to a mailbox on your account.


'reports 'mailFailed' - true or false
'and 'strErr' - Mail server error response
'and 'strErrCode' - Mail server numerical error response (as string)

'dimension all variables (essential if 'option expicit' used)
dim strHost, strErr, mailFailed
dim strBody, strName, strMail
dim strSubject, strFrom, strTo, strCC, strBCC, strReplyTo
dim strAutoMailbox, strEmPass

'modify for yourDomain *********************************************

'your mail server
strHost = "mail.yourDomain.com" 

'address of your outgoing mailbox
'this will appear in the headers as the originating mailbox
strAutoMailbox = "automail@yourDomain.com"

'password for your AutoMailbox
strEmPass = "yourPassword"

'the name and email that appears in the "From:" line (can be different to above)
strFrom = "yourDomain Website Mail<mailform@yourDomain.com>"

'where to send the mail
strTo = "yourGoodSelf@yourDomain.com"

'where to send copies (optional)
strCC = ""
strBCC = ""

'**********************************************************************

'collect details from the form ***************************
strName = Request.Form("form_name") 
strMail = Request.Form("form_mail")

'create the "Reply To:" i.e. the name and email of the form user
strReplyTo = strName & "<" & strMail & ">"

'create subject string
strSubject = Request.Form("form_subject")

'create Body string
strBody = strBody & "Website mail from " & strReplyTo & vbCrLf & vbCrLf
strBody = strBody & Request.Form("form_body") & vbcrLf & vbCrLf

'add a footer (optional) *********************************************
strBody = strBody & "----------------------------------------------------" & vbCrLf

'Adds the referring page and the IP details of sender to the mail body (optional)
strBody = strBody & "Requested from " & Request.ServerVariables("http_referer") & vbCrLf
strBody = strBody & "by " & Request.ServerVariables("REMOTE_ADDR") _ 
& " at " & Request.ServerVariables("REMOTE_HOST") _
& ". Server time: " & time & " " & Date & " " & vbcrlf

'note the '_' continuation character, if spreading code to the next line for readability


'send the mail *********************************************************

'initialise the error response string
strErr = ""

Const cdoBasic = 1 'Use basic (clear-text) authentication. 
Const cdoSendUsingPort = 2 
Dim iMsg
Dim iConf
Dim Flds
Dim sMsg 

On Error Resume Next

set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = strAutoMailbox
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strEmPass
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strHost
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 100
.Update
End With

With iMsg
Set .Configuration = iConf
.To = strTo 'To
.From = strFrom 'From:
if strReplyTo <> "" then
.ReplyTo = strReplyTo 'add ReplyTo: if exists
end if
if strCC <> "" then
.CC = strCC 'add CC if exists
end if
if strBCC <> "" then
.BCC = strBCC 'add BCC if exists
end if
.Subject = strSubject 'add the subject
.TextBody = strBody 'add the body (this is plain text)
.Send 'send the mail
strErr = Err.description 'response (empty if no problems)
'note: Err.number was not available when tested live
End With

'clean up
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

'prepare report flag and string
if strErr = "" then 
mailFailed = false
strErr = "Your mail has been sent."
else
mailFailed = true
end if

%>


<%
'report result
response.write (strErr)
%>

†$H@ki®@† · 03-29-2006, 04:39 PM

من با فرونت پیج چه طور این کار را انجام بدم؟
من فورمی میخواهم که انگلیسی باشه و فارسی نباشه

mehdi25 · 03-29-2006, 06:12 PM

Quote:

نوشته ای از †$H@ki®@†

من با فرونت پیج چه طور این کار را انجام بدم؟
من فورمی میخواهم که انگلیسی باشه و فارسی نباشه

اینها برنامه هستن . در فورمی که طراحی می کنی باید انگلیسی و فارسی رو رعایت کنی .

†$H@ki®@† · 03-29-2006, 11:27 PM

میشه بیشتر توضیح بدی؟
برنامه چه فرقی با فونت داره و چی هستند؟

02-13-2006, 01:18 AM	#31
mehdi25 Registered User Join Date: Oct 2004 Location: طهران Posts: 1,465	آخرش مجبور میشم مثل سایت وزارت خارجه برای ایمیل هم یه دیتابانک بزارم و online چیزهایی که شبیه به ایمیله رو بخونم __________________ ================================================== ==================== خدایا ! ...... به من زیستنی عطا کن که در لحظه مرگ بر بی ثمری لحظه هایی که برای زیستن گذشت است ، حسرت نخورم . ...... و مردنی عطا کن که بر بیهودگیش سوگوار نباشم . خدایا ! ...... تو چگونه زیستن را به من بیاموز . ...... چگونه مردن را خود خواهم آموخت . ================================================== ==================== این ای دی غیر فعال می باشد ، ای دیه جدید Mehdi_25 فعال شده .

02-13-2006, 02:54 AM	#32
H_R ASP.net مدیر Join Date: Mar 2005 Location: Tehran Posts: 3,393	اگه برای خودت میخوای خوب انکدینگ بروزرت رو درست کن !!! در ضمن اون چیزی که گفتم نوشتنش کاری نداره ها توی کل استرینگ ات کد هر حرف رو با خودش replace کن . همین !! ماسکسیمم 2 ساعت وقتت رو بگیره دیگه ! __________________ ای مفتــــــــی شهـــــــــــر از تــــــو بیــدارتـــــریــــم ----------بــا ایـــــن همـــــه مستی ز تــــو هشیارتـــــریــــم تـــو خـــون کســــــان نوشـــــی و مــــا خـــون رزان ---------- انصـــــــــــاف بـــــــــــده کــــــــــــدام خونخــــوارتریم

03-20-2006, 09:01 PM	#36
mehdi25 Registered User Join Date: Oct 2004 Location: طهران Posts: 1,465	تمام مسائل در مورد ایمیل == برنامه ها ، رفع مشکل دوستان در مورد ارسال ایمیل ، فرم ارتباط ، ارسال فرم به ایمیل و تمام مسایل مرترط با ایمیل از این تاپیک استفاده کنند تا یه مرجع کامل در این مورد گرد آوری شود و از ارسال تاپیک مجدد جلو گیری شود . چون در مورد ایمیل سوالات ز یادی مطرح می شود از مدیران محترم در خواست می شود این تاپیک را به صورت ثابت در این انجمن قرار دهند .

02-13-2006, 08:55 PM	#34
H_R ASP.net مدیر Join Date: Mar 2005 Location: Tehran Posts: 3,393	ببین هر حرفی از حروف دنیا توی یونیکد یه کد داره ! همینطرو حروف فارسی از این قائده مثتسنی نیستند ! حالا اگر این حروف به کد هاشون تبدیل بشن تمام مرورگرهای دنیا میتونن اون ها رو بدون نیاز به هیچ تنظیمی و فونتی بشناسن (تمام مرورگرها منظورم پدرمادر دار هاشه !! ) ولی من یه چیزی یادم افتاد که مشکلت رو برطرف میکنه ! http://www27.brinkster.com/mahmoud69...boutIrMail.htm این همه کار های لازم رو خودش میکنه ! من استفادش نکردم ولی باید چیز خوبی باشه !

03-29-2006, 04:39 PM	#43
†$H@ki®@† Registered User Join Date: Dec 2005 Location: 0 1 1 0 0 0 1 0 0 0 1 1 1 0 1 1 0 0 0 1 1 1 0 0 0 0 1 0 0 1 0 0 0 1 1 0 1 1 1 0 1 1 0 1 1 1 0 0 0 1 0 1 0 1 0 0 1 1 0 1 0 0 0 1 1 1 0 0 0 1 1 ██M██@██T██®██ I██X███ Posts: 1,927	من با فرونت پیج چه طور این کار را انجام بدم؟ من فورمی میخواهم که انگلیسی باشه و فارسی نباشه

03-29-2006, 11:27 PM	#45
†$H@ki®@† Registered User Join Date: Dec 2005 Location: 0 1 1 0 0 0 1 0 0 0 1 1 1 0 1 1 0 0 0 1 1 1 0 0 0 0 1 0 0 1 0 0 0 1 1 0 1 1 1 0 1 1 0 1 1 1 0 0 0 1 0 1 0 1 0 0 1 1 0 1 0 0 0 1 1 1 0 0 0 1 1 ██M██@██T██®██ I██X███ Posts: 1,927	میشه بیشتر توضیح بدی؟ برنامه چه فرقی با فونت داره و چی هستند؟

امکانات بيشتر
Show Printable Version Email this Page