AddHeader 메서드

메시지에 확장 헤더를 추가합니다.

형식

syntax

objSmtp.AddHeader(Name, Value)

objSmtp

Required. Smtp 오브젝트

Name

String. 헤더 이름을 지정합니다.

Value

String. 헤더 값을 지정합니다.

설명

인터넷 메일 메시지 헤더에 임의의 헤더를 추가합니다. 아래 예제는 메일 메시지를 작성한 소프트웨어를 나타내는 X-Mailer 헤더를 추가합니다. 추가한 헤더를 모두 제거하기 위해서는 ClearHeaders 메서드를 호출합니다.

예제

ASP

Copy

Dim smtp, result
Set smtp = CreateObject("TABSUpload4.Smtp")
smtp.FromAddress = "help@tabslab.com"
smtp.FromName = "도움"
smtp.AddToAddr "test@test.com", "테스트"
smtp.Subject = "테스트 메일입니다."
smtp.Encoding = "qp"
smtp.Charset = "euc-kr"
smtp.BodyText = "테스트 메일 본문입니다."
smtp.AddHeader "X-Mailer", "TABS Smtp Component"
Set result = smtp.Save("c:\textmail.eml")
If result.Type = 0 Then
    Response.Write "SaveTextMail OK"
Else
    Response.Write "SaveTextMail Fail: " & result.Type & ", " & result.Code
End If

위 예제를 실행했을 때 생성된 eml 내용입니다.

eml

Copy

Date: Thu, 30 Jun 2011 16:34:16 +0900
From: "=?euc-kr?B?tbW/8g==?=" <help@tabslab.com>
Subject: =?euc-kr?B?xde9usauILjewM/A1LTPtNku?=
To: "=?euc-kr?B?xde9usau?=" <test@test.com>
X-Mailer: TABS Smtp Component
MIME-Version: 1.0
Content-Type: text/plain;
        charset="euc-kr"
Content-Transfer-Encoding: quoted-printable

=C5=D7=BD=BA=C6=AE =B8=DE=C0=CF =BA=BB=B9=AE=C0=D4=B4=CF=B4=D9.

Other Resources

ClearHeaders 메서드