Page 1 of 1
ต้องการ ลิงค์ไปหาเมล์ครับ
Posted: Mon Nov 07, 2011 1:59 pm
by yodpao.b
เรียนอาจารย์ครับผมได้เขียนปุ่มการทำงานขึ้นมา
อยากให้ปุ่มนี้ ลิงค์ไปหาเมล์ซึ่งในเมล์นั้นมีที่อยู่เมล์ของผม
จะเขียนอย่างไรดีครับ
Untitled12.gif
Re: ต้องการ ลิงค์ไปหาเมล์ครับ
Posted: Mon Nov 07, 2011 8:48 pm
by snasui
Re: ต้องการ ลิงค์ไปหาเมล์ครับ
Posted: Thu Nov 10, 2011 9:40 am
by yodpao.b
ที่ทดลองทำดูแล้วครับพร้อมแนบไฟล์มาให้อาจาร์ยได้ดูด้วยครับ
โคดอยู่ที่ ModuleSendMail รันโคดที่หน้าSendMail ครับผม
Re: ต้องการ ลิงค์ไปหาเมล์ครับ
Posted: Thu Nov 10, 2011 3:20 pm
by snasui
ผมทดสอบแล้วทำงานได้ครับ
Re: ต้องการ ลิงค์ไปหาเมล์ครับ
Posted: Thu Nov 10, 2011 3:56 pm
by yodpao.b
ครับเดียวพรุ่งนี้ลองใหม่สงสัยเมล์มีปัญหา
Re: ต้องการ ลิงค์ไปหาเมล์ครับ
Posted: Fri Nov 11, 2011 2:03 pm
by yodpao.b
snasui wrote: ผมทดสอบแล้วทำงานได้ครับ
รบกวนอาจาร์ยช่วยบอกขั้นตอนการRunหน่อยครับ
ผมลองทำแล้วส่งให้ตัวเองมันยังไม่ถึงเลยครับ
Re: ต้องการ ลิงค์ไปหาเมล์ครับ
Posted: Fri Nov 11, 2011 2:21 pm
by snasui
ลอง Run ทีละ Step ด้วยการกดแป้น F8 แล้วตรวจสอบดูว่าติดขั้นตอนไหน
ผม Test ด้วยวิธีนี้และไม่พบว่าผิดพลาดครับ
Re: ต้องการ ลิงค์ไปหาเมล์ครับ
Posted: Fri Nov 11, 2011 2:40 pm
by yodpao.b
ทดลองแล้วเป็นปกติ ส่งรูปมาให้อาจารยดู ไม่รู้ทำถูกไหม
111.gif
ผมคลิก ใช่ ที่ในรูปด้านบน
Untitled.gif
Re: ต้องการ ลิงค์ไปหาเมล์ครับ
Posted: Fri Nov 11, 2011 3:19 pm
by yodpao.b
อาจารย์ครับคิดว่าได้รับแล้วครับ ติดปัญหาว่าเปิดดูแล้วไม่รู้ว่ามันคืออะไรเพราะข้างในไม่ใช่สิ่งที่ผมส่งครับ
จากรูปถามว่า
1.ผู้ส่งคือใคร
2.เนื้อหาในจดหมายไม่ใช่เอกสารของเรา
Re: ต้องการ ลิงค์ไปหาเมล์ครับ
Posted: Fri Nov 11, 2011 3:34 pm
by snasui
จากรูปที่แนบมาและผมลบออกไปแล้ว ผมเป็นผู้ทดสอบการส่งเมลโดยส่งด้วยไฟล์อื่นครับ พบว่าสามารถส่งได้เป็นปกติครับ และไม่ว่าจะส่งด้วยไฟล์ไหนรวมทั้งไฟล์เดิมก็ส่งได้ครับ
Re: ต้องการ ลิงค์ไปหาเมล์ครับ
Posted: Tue Nov 15, 2011 1:11 pm
by yodpao.b
อาจารย์ครับจากโดดที่อยู่ในภาด้านบน หมายถึงการส่งเมล์แผ่นเดียวใช่ไหมครับ
Re: ต้องการ ลิงค์ไปหาเมล์ครับ
Posted: Wed Nov 16, 2011 10:50 am
by snasui
จาก Code ด้านบน ผู้เขียน Code มุ่งหมายให้ Copy Sheet ปัจจุบันของสมุดงานปัจจุบันไปใช้ เมื่อส่งจะส่งเป็น Attach File ครับ
Re: ต้องการ ลิงค์ไปหาเมล์ครับ
Posted: Wed Nov 16, 2011 10:58 am
by yodpao.b
ครับต้องการตามนี้เลยครับเดี๋ยวจะลองส่งอีกที่
Re: ต้องการ ลิงค์ไปหาเมล์ครับ
Posted: Fri Nov 18, 2011 2:55 pm
by yodpao.b
อาจาร์ยครับสุดท้ายของโปรแกรมนี้ครับ
mail ที่ส่งยังไม่สำเร็จครับ
อยากจะได้แบบใหม่ครับ
ผมเคยเข้าไปใน www. หนึ่ง
เวลาเราจะติดต่อเขา เขาจะให้ที่อยู่ email ไว้เมื่อเราคลิ๊กที่อยู่ก็จะขึ้นเป็นรูปแบบของ เมล์เอาลุกด์
อยากได้แบบนั้นนะครับ
แบบเก่ามันก็ดีนะครับเป็นการบันทึกให้ผู้อื่นเห็นไปในตัวแต่ผมลองส่งมันไม่ยอมส่งนะครับเลยอยากได้แบบใหม่
ขอบคุณครับ
Re: ต้องการ ลิงค์ไปหาเมล์ครับ
Posted: Fri Nov 18, 2011 7:48 pm
by snasui
ลองดูตัวอย่างตาม Code ด้านล่างครับ
Code: Select all
Sub SendEmail()
Application.Dialogs(xlDialogSendMail).Show _
arg1:="snasui@gmail.com", arg2:="Enter subject line"
End Sub
Re: ต้องการ ลิงค์ไปหาเมล์ครับ
Posted: Mon Nov 21, 2011 7:34 am
by yodpao.b
แจ๋วเลยครับอาจาร์ยช่วยเอา AttachFiel ออกได้ใหม่ครับ
1.GIF
Re: ต้องการ ลิงค์ไปหาเมล์ครับ
Posted: Tue Nov 22, 2011 3:53 pm
by 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
