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

[March201711]

ต้องการส่งเมล์ให้หัวหน้า 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
 

[snasui]

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

[March201711]

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

Code: Select all

 With outmail
        .ReadReceiptRequested = True
        End With  

[snasui]

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

[March201711]

ติดตั้งแต่บรรทัดแรกเลยค่ะ ไม่ทราบว่าเกิดจากอะไร อาจารย์ช่วยดูให้หน่อยนะคะ ขอบคุณค่ะ

[snasui]

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

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

[March201711]

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

[snasui]

เป็นเรื่องแปลกเพราะไม่น่าจะเป็นเช่นนั้นได้ อย่างน้อยจะต้องมีการฟ้องดังภาพครับ

Complie_Error.png (21.22 KiB) Viewed 99 times

ซึ่งจะต้องเข้าเมนู Tools > References เพื่อติดตั้ง Outlook เสียก่อนดังภาพ

Outlook.png (161.09 KiB) Viewed 99 times

กรุณาย้อนกลับไปอ่านต้นทางอย่างละเอียดว่าได้แจ้งให้กำหนดค่าอย่างไรก่อนใช้งาน แหล่งข้อมูลที่ดีจะต้องแจ้งเอาไว้เสมอครับ

[March201711]

รันมาร์โคแล้ว ติดตรงนี้ ที่ high light สีเหลืองแสดงว่า code vba ผิดใช่ไหมคะ ไม่ใช่ code vba error ค่ะ

[snasui]

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

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

[March201711]

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

[snasui]

ช่วยแนบภาพการฟ้องมาด้วย

กรุณาทำตามนี้ก่อนจะได้ช่วยแนะนำกันได้ต่อไปครับ

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

[March201711]

ภาพฟ้อง pop up เป้น Debug ค่ะอาจารย์

[snasui]

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

ObjectRequired.jpg (11.29 KiB) Viewed 63 times

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

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

Code: Select all

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

[March201711]

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

[snasui]

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

[March201711]

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

[March201711]

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

[snasui]

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