2


0

埋め込まれた画像でクラシックASPを使用してメールを送信する

wysiwyg Editorを使用してNewsLetterを作成しています。 画像パスをアップロードでき、画像パスはアップロードディレクトリに保存されます。 私はそれを使用してその画像を取得すると、ウェブサイトで動作しません.. エディターの値はデータベースの例 `` hiに保存されます


こんにちは

私は電子メールを送信しています。この電子メールの詳細はデータベースから受信され、この詳細は訪問者に送信されます

彼はすべてのテキスト値を取得していますが、画像を見ることができません

だから何をすべきかを教えてください..?

5 Answer


3


CDOSYS.Messageを使用して電子メールを送信する場合、Message.CreateMHTMLBody(url)メソッドを使用して、埋め込み画像を含む完全なWebページを簡単に送信できます。

Dim Message
Set Message = CreateObject("CDOSYS.Message")

Message.From = "[email protected]"
Message.To = "[email protected]"
Message.CreateMTHMLBody "http://yourserver.org/email.html"
Message.Send()


1


サイトのURLをimgソースに追加する必要があります

ユーザーがメールボックスからサイトにアクセスしていないため、画像:http://www.sitename.com/upload/acb.gif [image]

このために、web.configでキーとして「http://www.sitename.com/」を設定し、メールで使用できます。

これで問題は確実に解決します。 ハッピーコーディング!!!!!!!!!!!!!


1


最近、私はこれを行うために横になっていたコードをいくつか整理し、githubで「要点」としてオンラインで平手打ちしました。それがまだ誰かを助けることを願っています!

このソリューションでは、CDO(CDOSYS / CDO.Message)と「AddAttachment」を使用し、添付ファイルのプロパティを手動で制御して、電子メールHTML内から使用できるようにし、電子メールクライアントで個別にダウンロード可能な添付ファイルとして表示されないようにします。

使い方は非常に簡単です。メッセージのHTML内のローカルパス(コードが実行されているコンピューター上)で画像を参照するだけです。例:

Some Image:

コードはファイル名を取得し、ファイルをメッセージの添付ファイルとして追加し、メッセージHTMLの関連部分をその添付ファイルへの内部参照に置き換えます。


0


メールの送信に使用しているものは、過去にAspEmailを使用して成功しました:http://www.aspemail.com/

ここに埋め込まれた画像を送信する方法を説明しています:http://www.aspemail.com/manual_04.html

ただし、共有ホスティングを使用している場合は、サーバーにインストールする必要があります。独自のサーバーを非常に簡単に実行している場合、これは問題になる可能性があります。


0


AddRelatedBodyPartを使用します。

*使用方法を埋め込む*配列を作成し、電子メール本文のパラメーターの使用として「SendMail」関数に渡します。

Dim arrRelatedBodyPart(1)
arrRelatedBodyPart(0) = Server.MapPath(".") & "/images/barcode/bar_blk.gif"
arrRelatedBodyPart(1) = Server.MapPath(".") & "/images/barcode/bar_wht.gif"

For i = 0 To UBound(arrRelatedBodyPart)
    Dim strPathAndFileName: strPathAndFileName = arrRelatedBodyPart(i)
    Dim strFileName: strFileName = GetFileName(arrRelatedBodyPart(i), "/")
    '.AddRelatedBodyPart strPathAndFileName, strFileName, cdoRefTypeId

    Set objCDOBodyPart = .AddRelatedBodyPart(strPathAndFileName, strFileName, 1)
    objCDOBodyPart.Fields.Item("urn:schemas:mailheader:Content-ID") = "<" & strFileName & ">"
    objCDOBodyPart.Fields.Update
Next