? asked in 電腦與網際網路程式設計 · 1 decade ago

有關於Excel vba 打開EMAIL 輸入內容

如題

另外 寫了一段程式碼 到底是哪裡錯了 希望能有人告訴我,謝謝

Update:

這是補充的程式碼

For i = 1 To 5

mailaddress = Cells(1 + i, 1).Value

Cells(1 + i, 1).Select

mailadd = mailto: mailaddress

mailsubject = "mialadd" & "?subject=AAA"

ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:=(mailadd)

Cells(1 + i, 1).Hyperlinks.Item(1).Follow

Next i

2 Answers

Rating
  • 阿戊
    Lv 7
    1 decade ago
    Favorite Answer

    以下這三行錯了!!!

    mailadd = mailto: mailaddress

    mailsubject = "mialadd" & "?subject=AAA"

    ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:=(mailadd)

    改成:

    mailadd = "mailto:" & mailaddress & "?subject=AAA"

    ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:=mailadd

    2008-04-08 23:39:21 補充:

    內容要用 body

    接在

    mailadd = "mailto:" & mailaddress & "?subject=AAA"

    後面

    比如:

    mailadd = "mailto:" & mailaddress & "?subject=AAA&body=test"

    2008-04-08 23:41:30 補充:

    ...還有...下次有解決是不是不要隨意丟給投票...>.<" 這讓阿戊印象粉不好...

  • 1 decade ago

    謝謝 不過不知道如果再延伸一個問題,就在outlook 的主旨和收件者,我已經可以插入了,但是信件的內容 我想要加入文字怎麼使用啊 再謝謝您

    2008-10-22 23:17:45 補充:

    不好意思 我不是很懂 你的意思 不過你真的解答了我的問題 造成你的困擾 說聲抱歉

Still have questions? Get your answers by asking now.