ต้องการ ลิงค์ไปหาเมล์ครับ

[yodpao.b]

เรียนอาจารย์ครับผมได้เขียนปุ่มการทำงานขึ้นมา
อยากให้ปุ่มนี้ ลิงค์ไปหาเมล์ซึ่งในเมล์นั้นมีที่อยู่เมล์ของผม
จะเขียนอย่างไรดีครับ

Untitled12.gif

[snasui]

ดูตัวอย่าง Code ที่นี่ครับ http://www.ozgrid.com/VBA/send-email.htm

[yodpao.b]

ที่ทดลองทำดูแล้วครับพร้อมแนบไฟล์มาให้อาจาร์ยได้ดูด้วยครับ
โคดอยู่ที่ ModuleSendMail รันโคดที่หน้าSendMail ครับผม

[snasui]

ผมทดสอบแล้วทำงานได้ครับ

[yodpao.b]

ครับเดียวพรุ่งนี้ลองใหม่สงสัยเมล์มีปัญหา

[yodpao.b]

ผมทดสอบแล้วทำงานได้ครับ

รบกวนอาจาร์ยช่วยบอกขั้นตอนการRunหน่อยครับ
ผมลองทำแล้วส่งให้ตัวเองมันยังไม่ถึงเลยครับ

[snasui]

ลอง Run ทีละ Step ด้วยการกดแป้น F8 แล้วตรวจสอบดูว่าติดขั้นตอนไหน

ผม Test ด้วยวิธีนี้และไม่พบว่าผิดพลาดครับ

[yodpao.b]

ทดลองแล้วเป็นปกติ ส่งรูปมาให้อาจารยดู ไม่รู้ทำถูกไหม

111.gif

ผมคลิก ใช่ ที่ในรูปด้านบน

Untitled.gif

[yodpao.b]

อาจารย์ครับคิดว่าได้รับแล้วครับ ติดปัญหาว่าเปิดดูแล้วไม่รู้ว่ามันคืออะไรเพราะข้างในไม่ใช่สิ่งที่ผมส่งครับ
จากรูปถามว่า
1.ผู้ส่งคือใคร
2.เนื้อหาในจดหมายไม่ใช่เอกสารของเรา

[snasui]

จากรูปที่แนบมาและผมลบออกไปแล้ว ผมเป็นผู้ทดสอบการส่งเมลโดยส่งด้วยไฟล์อื่นครับ พบว่าสามารถส่งได้เป็นปกติครับ และไม่ว่าจะส่งด้วยไฟล์ไหนรวมทั้งไฟล์เดิมก็ส่งได้ครับ

[yodpao.b]

อาจารย์ครับจากโดดที่อยู่ในภาด้านบน หมายถึงการส่งเมล์แผ่นเดียวใช่ไหมครับ

[snasui]

จาก Code ด้านบน ผู้เขียน Code มุ่งหมายให้ Copy Sheet ปัจจุบันของสมุดงานปัจจุบันไปใช้ เมื่อส่งจะส่งเป็น Attach File ครับ

[yodpao.b]

ครับต้องการตามนี้เลยครับเดี๋ยวจะลองส่งอีกที่

[yodpao.b]

อาจาร์ยครับสุดท้ายของโปรแกรมนี้ครับ
mail ที่ส่งยังไม่สำเร็จครับ
อยากจะได้แบบใหม่ครับ
ผมเคยเข้าไปใน www. หนึ่ง
เวลาเราจะติดต่อเขา เขาจะให้ที่อยู่ email ไว้เมื่อเราคลิ๊กที่อยู่ก็จะขึ้นเป็นรูปแบบของ เมล์เอาลุกด์
อยากได้แบบนั้นนะครับ
แบบเก่ามันก็ดีนะครับเป็นการบันทึกให้ผู้อื่นเห็นไปในตัวแต่ผมลองส่งมันไม่ยอมส่งนะครับเลยอยากได้แบบใหม่
ขอบคุณครับ

[snasui]

ลองดูตัวอย่างตาม Code ด้านล่างครับ

Code: Select all

Sub SendEmail()
    Application.Dialogs(xlDialogSendMail).Show _
        arg1:="snasui@gmail.com", arg2:="Enter subject line"
End Sub

[yodpao.b]

แจ๋วเลยครับอาจาร์ยช่วยเอา AttachFiel ออกได้ใหม่ครับ

1.GIF

[snasui]

ลองดู Code ตามด้านล่างครับ

Code: Select all

Sub SendEmail()
    Workbooks.Add
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
    Address:="mailto:snasui@gmail.com"
    Selection.Hyperlinks(1).Follow
    ActiveWorkbook.Close False
End Sub