メールをハイパーリンクで送信 : Excel(エクセル)

Excel VBAでハイパーリンクを使いメールを設定します。
設定したハイパーリンクをクリックすると、メーラーが開きます。

構文 : Hyperlinks.Add(Anchor, Address, SubAddress, ScreenTip, TextToDisplay)

メール部分は下記の構文になります。
mailto:= (アドレス) ?subject= (件名) & body= (送信内容)

Excel Tipsメニューに戻る

スポンサーリンク






Excel実行画面

表示文、アドレス、件名、内容 を入力し、「メールのハイパーリンク」ボタンをクリックします。
メール送信ソフト

C12に「メール送信」のリンクができました。
メール送信リンクをクリック

メール送信をクリックすると、宛先にアドレス、件名に「メール送信テスト」、本文に「Excelのハイパーリンクでメールを送信します。」と設定されメーラーが起動します。
メール送信の為、OUTLOOKが起動

スポンサーリンク



Excel VBA実行コード

Option Explicit

Private Sub CommandButton1_Click()
    Dim adr As String
    Dim stext As String
    Dim subj As String
    Dim sbody As String
    
    If Range("C7") = "" Then
        MsgBox "表示文を入力してください。"
        Exit Sub
    End If
    
    If Range("C8") = "" Then
        MsgBox "アドレスを入力してください。"
        Exit Sub
    End If
    
    If Range("C9") = "" Then
        MsgBox "件名を入力してください。"
        Exit Sub
    End If
    
    If Range("C10") = "" Then
        MsgBox "内容を入力してください。"
        Exit Sub
    End If
    
    stext = Range("C7")
    adr = Range("C8")
    subj = Range("C9")
    sbody = Range("C10")
    
    'ハイパーリンクでメール送信
    Hyperlinks.Add anchor:=Range("C12"), Address:="mailto:" + adr + "?subject=" + subj + "&body=" + sbody, TextToDisplay:=stext

End Sub

Excel Tipsメニューに戻る

スポンサーリンク






■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved