:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser
🪷 คำแสดงเจตนา
ขอผลแห่งการให้ความรู้นี้ จงกลับไปยังผู้ที่เป็นเจ้าของเดิม แม้ข้าพเจ้าจะไม่รู้จักท่านก็ตาม ขอให้แสงแห่งปัญญาที่ท่านเคยจุดไว้ ได้กลับไปเติมเต็มชีวิตของท่านอีกครั้ง และขอให้เจตนาของข้าพเจ้าเป็นการคืนความดีอย่างสงบ

ต้องการส่ง email outlook ผ่าน excel file โดยใช้ code vba

Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่

Post a reply


This question is a means of preventing automated form submissions by spambots.
Smilies
:D :thup: :cp: :flw: :rz: :sg: :tt: :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :arrow: :ard: :arl: :aru: :| :mrgreen: :geek: :ugeek:
BBCode is ON
[img] is ON
[url] is ON
Smilies are ON
Topic review
   

Expand view Topic review: ต้องการส่ง email outlook ผ่าน excel file โดยใช้ code vba

Re: ต้องการส่ง email outlook ผ่าน excel file โดยใช้ code vba

#19

by snasui » Mon Jun 10, 2024 8:58 pm

:D ลองเขียนเกี่ยวกับการแนบภาพมาเองก่อน ติดแล้วค่อยถามกันครับ

Re: ต้องการส่ง email outlook ผ่าน excel file โดยใช้ code vba

#18

by March201711 » Mon Jun 10, 2024 8:06 pm

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

Re: ต้องการส่ง email outlook ผ่าน excel file โดยใช้ code vba

#17

by March201711 » Thu Mar 16, 2023 3:58 pm

ได้แล้วค่ะ อาจารย์ ขอบคุณค่ะ

Re: ต้องการส่ง email outlook ผ่าน excel file โดยใช้ code vba

#16

by snasui » Thu Mar 16, 2023 1:43 pm

:D ตาม Code นั้นมีการเขียนเข้าไปในเมลอยู่แล้วว่าขออนุมัติ ไม่ทราบว่าต้องการให้แสดงผลเป็นอย่างไร กรุณาเขียนมาโดยละเอียดเท่าที่คิดว่าผู้ที่ไม่มีประสบการณ์นี้สามารถเข้าใจได้ อย่าเล่ามาอย่างย่อ ๆ ครับ

Re: ต้องการส่ง email outlook ผ่าน excel file โดยใช้ code vba

#15

by March201711 » Thu Mar 16, 2023 1:39 pm

ค่ะ ถ้าต้องการให้หัวหน้ารับเมลนร้แล้ว กด Approve ในเมล์ต้องเขียน code vba ยังงัยคะ

Re: ต้องการส่ง email outlook ผ่าน excel file โดยใช้ code vba

#14

by snasui » Wed Mar 15, 2023 7:02 pm

:D สาเหตุของ Error ให้สังเกตตำแหน่งที่ล้อมกรอบไว้ตามภาพ ไม่ใช่ที่ปุ่มครับ

ObjectRequired.jpg
ObjectRequired.jpg (11.29 KiB) Viewed 62 times

ในโอกาสถัดไปหากมี Error จะต้องแจ้งค่านี้หรือจับภาพนี้มาด้วยทุกครั้ง และพยายามจับภาพเฉพาะส่วนแทนที่จะจับมาทั้งหน้าจอ การจับภาพเฉพาะส่วนโดยปกติแล้วสามารถทำได้โดยการกดแป้น Atl+Print Screen ครับ

สำหรับ Code นั้นให้ปรับเป็น

Code: Select all

'Other code
With EmailItem
    .ReadReceiptRequested = True
End With
'Other code

Re: ต้องการส่ง email outlook ผ่าน excel file โดยใช้ code vba

#13

by March201711 » Wed Mar 15, 2023 5:33 pm

ภาพฟ้อง pop up เป้น Debug ค่ะอาจารย์
Attachments
Capture3.JPG
Capture3.JPG (78.49 KiB) Viewed 65 times

Re: ต้องการส่ง email outlook ผ่าน excel file โดยใช้ code vba

#12

by snasui » Wed Mar 15, 2023 8:25 am

snasui wrote: Tue Mar 14, 2023 7:47 pm ช่วยแนบภาพการฟ้องมาด้วย
:D กรุณาทำตามนี้ก่อนจะได้ช่วยแนะนำกันได้ต่อไปครับ

ภาพ Error จะต้องเป็น Dialog หรือ Popup Windows ที่เป็นตัวบอกสาเหตุของปัญหา ไม่ใช่ลำพังแค่ภาพที่แสดงบรรทัดสีเหลืองที่แสดงว่ากำลังติดอยู่ที่บรรทัดใด ๆ เนื่องจากภาพนั้นไม่ได้บอกว่า Error เพราะสาเหตุใดครับ

Re: ต้องการส่ง email outlook ผ่าน excel file โดยใช้ code vba

#11

by March201711 » Tue Mar 14, 2023 10:07 pm

ไม่ทราบเลยค่ะ หาใน google ให้ code มาแค่นี้ค่ะอาจารย์

Re: ต้องการส่ง email outlook ผ่าน excel file โดยใช้ code vba

#10

by snasui » Tue Mar 14, 2023 7:47 pm

:D ในการติดแต่ละครั้งย่อมต้องมีการฟ้อง ช่วยแนบภาพการฟ้องมาด้วยเสมอครับ

จากภาพที่แนบมา ตัวแปร outmail คืออะไร ประกาศไว้ที่ใดใน Code ประกาศไว้เป็นอะไร การที่จะนำมาใช้ด้วย With ต้องมีตัวแปรนั้นที่โปรแกรมรู้จักก่อนครับ

Re: ต้องการส่ง email outlook ผ่าน excel file โดยใช้ code vba

#9

by March201711 » Tue Mar 14, 2023 2:09 pm

รันมาร์โคแล้ว ติดตรงนี้ ที่ high light สีเหลืองแสดงว่า code vba ผิดใช่ไหมคะ ไม่ใช่ code vba error ค่ะ
Attachments
Capture2.JPG
Capture2.JPG (53.55 KiB) Viewed 87 times

Re: ต้องการส่ง email outlook ผ่าน excel file โดยใช้ code vba

#8

by snasui » Mon Mar 13, 2023 10:08 pm

:D เป็นเรื่องแปลกเพราะไม่น่าจะเป็นเช่นนั้นได้ อย่างน้อยจะต้องมีการฟ้องดังภาพครับ
Outlook.png
Outlook.png (161.09 KiB) Viewed 98 times
ซึ่งจะต้องเข้าเมนู Tools > References เพื่อติดตั้ง Outlook เสียก่อนดังภาพ
Complie_Error.png
Complie_Error.png (21.22 KiB) Viewed 98 times
กรุณาย้อนกลับไปอ่านต้นทางอย่างละเอียดว่าได้แจ้งให้กำหนดค่าอย่างไรก่อนใช้งาน แหล่งข้อมูลที่ดีจะต้องแจ้งเอาไว้เสมอครับ

Re: ต้องการส่ง email outlook ผ่าน excel file โดยใช้ code vba

#7

by March201711 » Mon Mar 13, 2023 9:53 pm

กดรันแล้ว แต่ มารโคไม่ให้ไปต่อน่ะค่ะ มันขึ้น high light สีเหลืองตามภาพนั้นน่ะค่ะอาจารย์

Re: ต้องการส่ง email outlook ผ่าน excel file โดยใช้ code vba

#6

by snasui » Mon Mar 13, 2023 9:37 pm

:D ที่แนบมาไม่ใช่ Error ครับ

Error จะแสดง Pop up ที่บอกว่าเกิด Error จากสาเหตุใด กรุณาจับภาพนั้นมาครับ

Re: ต้องการส่ง email outlook ผ่าน excel file โดยใช้ code vba

#5

by March201711 » Mon Mar 13, 2023 9:17 pm

ติดตั้งแต่บรรทัดแรกเลยค่ะ ไม่ทราบว่าเกิดจากอะไร อาจารย์ช่วยดูให้หน่อยนะคะ ขอบคุณค่ะ
Attachments
Capture.JPG
Capture.JPG (54.21 KiB) Viewed 105 times
Send_email_approve_and_readEmail.xlsm
(135.06 KiB) Downloaded 7 times

Re: ต้องการส่ง email outlook ผ่าน excel file โดยใช้ code vba

#4

by snasui » Mon Mar 13, 2023 7:59 pm

:D ช่วยโพสต์ภาพที่ติด Error มาด้วยครับ

Re: ต้องการส่ง email outlook ผ่าน excel file โดยใช้ code vba

#3

by March201711 » Mon Mar 13, 2023 7:56 pm

ติดตรงนี้ค่ะ

Code: Select all

 With outmail
        .ReadReceiptRequested = True
        End With

Re: ต้องการส่ง email outlook ผ่าน excel file โดยใช้ code vba

#2

by snasui » Mon Mar 13, 2023 6:40 pm

:D กรุณาแจ้งว่าปัจจุบันเกิดปัญหาที่บรรทัดไหน อย่างไร จะได้เข้าถึงปัญหาได้โดยไวครับ

ต้องการส่ง email outlook ผ่าน excel file โดยใช้ code vba

#1

by March201711 » Mon Mar 13, 2023 3:35 pm

ต้องการส่งเมล์ให้หัวหน้า Approve ว่าผ่านแล้ว และอยากรู้ว่าหัวหน้างานอ่าน mail นี้หรือยังค่ะ
code :

Code: Select all

 Sub Send_email_request_approve()
  
        Dim EmailApp As Outlook.Application
        Dim Source As String
        Set EmailApp = New Outlook.Application
        
        Dim EmailItem As Outlook.MailItem
        Set EmailItem = EmailApp.CreateItem(olMailItem)
        
        EmailItem.To = "AAA@th.com"

        EmailItem.Subject = "Test send email click approve and request a read receipt."
                
        EmailItem.HTMLBody = "Dear all," & "<br>" & _
                        "<br>" & "Please review and approve " & _
                        "<br>" & _
                        "<br>" & _
                        "<br>" & _
                        "Best regards," & "<br>" & _
                        "BBB."
  
        Source = ThisWorkbook.FullName

        With outmail
        .ReadReceiptRequested = True
        End With
            
        EmailItem.Send

End Sub
Attachments
Send_email_approve_and_readEmail.xlsm
(114.71 KiB) Downloaded 1 time

Top