Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Excel 2010)
VBAからメール送信
投稿日時: 20/01/24 18:49:17
投稿者: かつのり2

いつもお世話になっております。
 
メールを送信するVBAコードをサンプルなどを参考にして作ったのですが・・・(下記参照)
受信するメールソフトが[Windows_LIVE_Mail]ならばメール内のリンクでエクセルファイル
が開くのですが、受信メールソフトが[Thuderbird]だとメール内のリンクをクリックして
開きません???
------------------------------------------------------------------------------
Dim Message As CDO.Message 'Messageオブジェクト
Dim Configuration As CDO.Configuration 'Messageオブジェクト
Dim Fields As ADODB.Fields 'Filedsコレクション
Set Message = New CDO.Message ' Messageオブジェクトを生成
Set Configuration = New CDO.Configuration ' Configurationオブジェクトを生成
Set Fields = Configuration.Fields ' Filedsオブジェクトを生成
With Fields ' フィールド情報を設定
  .Item(cdoSendUsingMethod) = cdoSendUsingPort
  .Item(cdoSMTPServer) = "ABC.XXX.co.jp" 'サーバ名
  If CInt(Application.Version) > 12 Then
      .Update ' フィールド情報を更新
  End If
End With
With Message ' メッセージ情報を設定
  Set .Configuration = Configuration
  .To = "AAA@XXX.co.jp" '宛先
  .From = "BBB@XXX.co.jp" '送信者
  .Subject = "これはテストメールです” 'タイトル
  .HTMLBody = "<HTML><BODY>" & _
              "下記をクリックして下さい<BR>" & _
              "<BR>" & _
              "<A HREF=""\\C-PC\共有F\EXCEL-A.xlsx"">""Fileが開きますく""</A><BR>" & _
              "</BODY></HTML>"
   .HTMLBodyPart.Charset = "ISO-2022-JP"
   .Send ' メール送信
End With
Set Message = Nothing ' オブジェクトの解放
Set Fields = Nothing ' オブジェクトの解放
Set Configuration = Nothing ' オブジェクトの解放
------------------------------------------------------------------------------
お分かり方がおりました。教えて下さい
お願いします。

回答
投稿日時: 20/01/25 15:19:42
投稿者: WinArrow
投稿者のウェブサイトに移動

この質問は、同じ環境がある回答者しかわからないと思います。
 
ネット検索したほうが、情報が探せると思います。

回答
投稿日時: 20/01/28 18:41:01
投稿者: takesi

ローカルページへのリンクが機能しない
h t t p ://kb.mozillazine.org/Links_to_local_pages_don%27t_work#Thunderbird_1.5.2C_SeaMonkey_1.0_and_newer
 
UNCパスなのかな、参考になれば幸いです。

投稿日時: 20/01/29 16:00:10
投稿者: かつのり2

回答ありがとうございます。参考にさせて頂き色々試して見ました
 
とりあえず、
["<A HREF=""\\C-PC\共有F\EXCEL-A.xlsx"">""Fileが開きますく""</A><BR>" & _]
の部分を下記に書き換えたました
["<A HREF=""file://///C-PC\KYOUYU-F\EXCEL-A.xlsx"">""Fileが開きますく""</A><BR>" & _]
書き換えたコードでメールを送信し[Thunderbird]で開き[Fileが開きます]をクリックすると
[プログラムを起動]ダイヤログが表示され、[他のプログラムを選択]でEXCELを起動させると
呼出す事が出来ました。
ちなみに[Windows_LIVE_Mail]でも開いて見ましたが難なく開く事が出来ました。
[Thunderbird]では、ワンクション置かないといけないのですが、とりあえず、開く事が出来ました
ワンクション置かないで開く方法があるかこれから試行錯誤したいと思います。
 
追伸
パス名の中の[共有F]フォルダを[KYOYU-F]フォルダに変更したのは、[Thunderbird]で開く時に漢字の
部分が文字化けした為にアルファベットに変更しました。
この点は別に考えてみたいと思います。
 
なにか違う方法があるよ!などあればコメントお願いします。
 
[WinArrow]様、[takesi]様、回答ありがとうございます。

投稿日時: 20/02/18 11:06:36
投稿者: かつのり2

今回、これで解決とさせていただきます
ありがとうございました。