🔊 โปรดทราบ Image
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ดครับ Image
  2. การสมัครสมาชิกเพื่อโพสต์คำถาม ดาวน์โหลดไฟล์แนบไปศึกษา ทำตามขั้นตอนด้านล่างครับ
    1. สมัครสมาชิก ดูขั้นตอนตาม Link นี้ครับ => สมัครสมาชิก กรณีลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่นี่ครับ => Reset รหัสผ่านImage
    2. Login เข้าระบบโดยคลิก Login ตรงมุมขวาบนของหน้านี้ Image กรณีมีปัญหาในการเข้าใช้งาน คลิก Link นี้เพื่อแจ้งผู้ดูแลระบบครับ => ติดต่อผู้ดูแลระบบ
  3. เมื่อ Login แล้วสามารถกำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษได้ที่ Link นี้ครับ => ตั้งค่าส่วนตัว Image
  4. วิธีการตั้งและตอบกระทู้ดูได้ที่ Link นี้ครับ => วิธีการตั้งและตอบกระทู้ Image
  5. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ Link นี้ครับ => จัดรูปแบบตัวอักษร และสามารถกำหนดขนาดตัวอักษรใน Browser ได้ที่นี่ครับ => กำหนดขนาดตัวอักษรใน Browser Image

ส่งแจ้งแบบอัตโนมัติ

ฟอรั่มถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถาม-ตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบ ต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. อธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. ควรแนบตัวอย่างไฟล์มาที่ฟอรั่มนี้เพื่อเพิ่มความสะดวกในการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่น นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. สำหรับคำถามเกี่ยวกับ VBA ให้ลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน ควรโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. แจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
มัคกี้เม้า
Member
Member
Posts: 98
Joined: Wed Jan 12, 2011 10:20 am

ส่งแจ้งแบบอัตโนมัติ

#1

Post by มัคกี้เม้า » Thu Jan 18, 2018 1:21 pm

เรียน สอบถามอาจารย์ค่ะ
ในกรณีที่วันหมดอายุมันเกินกำหนดแล้วจะให้แจ้งเตือนไปที่ E-Mail outlook แบบอัตโนมัติ จะต้องใส่ค่าหรือสูตรอะไรเข้าไปค่ะ
เนื่องจากลองทำดูแล้วไม่ได้ค่ะ รบกวนด้วยค่ะ :) :)
You do not have the required permissions to view the files attached to this post.

eyepop99
Member
Member
Posts: 89
Joined: Fri Sep 01, 2017 3:19 pm

Re: ส่งแจ้งแบบอัตโนมัติ

#2

Post by eyepop99 » Thu Jan 18, 2018 1:36 pm

การจะทำแบบดั่งกลาวต้องอาศัย VBA ช่วย
ซึ่งจะต้องเขียนเองมาก่อน แล้วมาช่วยกันแก้ไข ครับ

มัคกี้เม้า
Member
Member
Posts: 98
Joined: Wed Jan 12, 2011 10:20 am

Re: ส่งแจ้งแบบอัตโนมัติ

#3

Post by มัคกี้เม้า » Thu Jan 18, 2018 1:56 pm

ขอบคุณนะคะที่ชี้แจงค่ะ รบกวนอีกครั้งค่ะ
Sub SendEmail()
Email = Cells(ActiveCell.Row, 15)
Subj = Cells(ActiveCell.Row, 14)
Msg = Msg & “Dear” & Cells(ActiveCell.Row, 14) & “,” & vbCrLf & vbCrLf & “Certificate will be expired soon Please urgent proceed. ” & vbCrLf & vbCrLf & Cells(ActiveCell.Row, 15)
End Sub

logic
Silver
Silver
Posts: 655
Joined: Thu Mar 18, 2010 1:57 pm

Re: ส่งแจ้งแบบอัตโนมัติ

#4

Post by logic » Thu Jan 18, 2018 3:09 pm

ดูกฎข้อ 5 ในการวางโค้ดที่ช่องความเห็น แนบไฟล์มาด้วยเพื่อน ๆ จะได้ช่วยกันดูได้ครับ :P

eyepop99
Member
Member
Posts: 89
Joined: Fri Sep 01, 2017 3:19 pm

Re: ส่งแจ้งแบบอัตโนมัติ

#5

Post by eyepop99 » Thu Jan 18, 2018 3:42 pm

Code ตัวอย่างสำครับการส่ง E-mail ครับ ลองเล่นดูได้

Code: Select all

Sub Send_Range()


 ActiveSheet.Range("A1:B5").Select   ' data range to send email
  ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
      .Introduction = "This is a sample worksheet."
      .Item.To = "Address"
      .Item.Subject = "My subject"
      .Item.Send
   End With
End Sub


มัคกี้เม้า
Member
Member
Posts: 98
Joined: Wed Jan 12, 2011 10:20 am

Re: ส่งแจ้งแบบอัตโนมัติ

#6

Post by มัคกี้เม้า » Thu Jan 18, 2018 3:53 pm

ขออภัยนะคะ
กำหนดโค้ดไว้ใน VBA แล้วพอsaveออกมา เข้าไปดูมันไม่อยู่ในนั้นเลยเขียนเอาใว้ข้างนอก ขอบคุณคะ
You do not have the required permissions to view the files attached to this post.

logic
Silver
Silver
Posts: 655
Joined: Thu Mar 18, 2010 1:57 pm

Re: ส่งแจ้งแบบอัตโนมัติ

#7

Post by logic » Thu Jan 18, 2018 3:57 pm

ไฟล์ที่มีโค้ดต้อง Save ไฟล์เป็น .xlsm ถ้าเป็น .xlsx แนบโค้ดไม่ได้ครับ :P

eyepop99
Member
Member
Posts: 89
Joined: Fri Sep 01, 2017 3:19 pm

Re: ส่งแจ้งแบบอัตโนมัติ

#8

Post by eyepop99 » Thu Jan 18, 2018 3:57 pm

มัคกี้เม้า wrote:
Thu Jan 18, 2018 3:53 pm
ขออภัยนะคะ
กำหนดโค้ดไว้ใน VBA แล้วพอsaveออกมา เข้าไปดูมันไม่อยู่ในนั้นเลยเขียนเอาใว้ข้างนอก ขอบคุณคะ
เวลาเซฟ เลือก ไฟล์type เป็น .xlsm ครับ

มัคกี้เม้า
Member
Member
Posts: 98
Joined: Wed Jan 12, 2011 10:20 am

Re: ส่งแจ้งแบบอัตโนมัติ

#9

Post by มัคกี้เม้า » Fri Jan 19, 2018 8:42 am

เปลี่ยนตามที่บอกแล้วนะคะ นามสกุล งงอยู่ตั้งนาน :) :)
You do not have the required permissions to view the files attached to this post.

eyepop99
Member
Member
Posts: 89
Joined: Fri Sep 01, 2017 3:19 pm

Re: ส่งแจ้งแบบอัตโนมัติ

#10

Post by eyepop99 » Fri Jan 19, 2018 1:46 pm

มัคกี้เม้า wrote:
Fri Jan 19, 2018 8:42 am
เปลี่ยนตามที่บอกแล้วนะคะ นามสกุล งงอยู่ตั้งนาน :) :)
ช่วยแจ้ง รายละเอียดว่า
เนื้อหาเมลในเมลอยู่ Cell ไหน
และ Email อยู่ใน cell ไหน
Subject อยู่ใน Cell ไหน

ครับ

eyepop99
Member
Member
Posts: 89
Joined: Fri Sep 01, 2017 3:19 pm

Re: ส่งแจ้งแบบอัตโนมัติ

#11

Post by eyepop99 » Fri Jan 19, 2018 1:53 pm

ลองดูตามไฟล์ แน๊บครับ
You do not have the required permissions to view the files attached to this post.

มัคกี้เม้า
Member
Member
Posts: 98
Joined: Wed Jan 12, 2011 10:20 am

Re: ส่งแจ้งแบบอัตโนมัติ

#12

Post by มัคกี้เม้า » Fri Jan 19, 2018 3:40 pm

ขอบคุณมากๆนะคะ
มีเรื่องสงสัยอีกค่ะ
1.กดคำว่า Send Email ในบริษัท AA อยากให้ copy ขอบเขตข้อมูล A3:N5 อันนี้กำหนดได้ค่ะ แต่ปัญหาคือว่า อยากจะ Copy บริษัท BB
โดยขอบเขตข้อมูลมี 2 ชุดคือ หัวเรื่องคือช่วง C3:N3 และ เนื้อหาคือช่วง A6:N7 อันนี้ต้องกำหนดยังไงค่ะ
เพราะต้องการแค่บริษัทใครบริษัทมันค่ะ
You do not have the required permissions to view the files attached to this post.

User avatar
snasui
Site Admin
Site Admin
Posts: 22754
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: ส่งแจ้งแบบอัตโนมัติ

#13

Post by snasui » Fri Jan 19, 2018 9:56 pm

:D ถ้าตาม Code ที่เขียนมาลักษณะการเลือกพื้นที่ที่ไม่ติดกันก็จะเป็นตามด้านล่างครับ

Code: Select all

ActiveSheet.Range("C3:N3, A6:N7").Select 
ส่วนจะส่งได้จริงหรือไม่นั้น ผมไม่ได้ทดสอบนะครับ

มัคกี้เม้า
Member
Member
Posts: 98
Joined: Wed Jan 12, 2011 10:20 am

Re: ส่งแจ้งแบบอัตโนมัติ

#14

Post by มัคกี้เม้า » Mon Jan 22, 2018 9:04 am

เรียนอาจารย์นะคะ
ลองทำดูแล้วคะโค้ดนั้นจะคัดลอกมาทั้งหมดเลยค่ะไม่เว้นช่วงให้ตั้งแต่ A3:N7 เลยค่ะ
รบกวนท่านผู้รู้ช่วยหน่อยนะคะ
You do not have the required permissions to view the files attached to this post.

eyepop99
Member
Member
Posts: 89
Joined: Fri Sep 01, 2017 3:19 pm

Re: ส่งแจ้งแบบอัตโนมัติ

#15

Post by eyepop99 » Mon Jan 22, 2018 11:19 am

snasui wrote:
Fri Jan 19, 2018 9:56 pm
:D ถ้าตาม Code ที่เขียนมาลักษณะการเลือกพื้นที่ที่ไม่ติดกันก็จะเป็นตามด้านล่างครับ

Code: Select all

ActiveSheet.Range("C3:N3, A6:N7").Select 
ส่วนจะส่งได้จริงหรือไม่นั้น ผมไม่ได้ทดสอบนะครับ
จากที่ลองทดสอบโค๊ดของอาจาร
ผลปรากฏว่า
1 . ก่อนส่งe-email เลือก ช่วงเฉพาะที่กำหนดไว้
2. คือข้อมูลช่วงที่ถูกส่งไปในe-mailนั่น เป็นการส่งเมลไปทั้งชีต ทั้งหมด

จากการทดสอบฟังชัน ของCode ทีละขั้นตอน
ฟังชันนี้ ถ้ามี selection เดียว จะ send แบบ selection
แต่ถ้ามี selection มากกว่า 1 จุด จะ Send ทั้ง sheet เลยครับ

ถ้าต้องการsend แบบ selection มากกว่า 1 จุด อาจจะต้องใช้ ฟังชันอื่นเข้าช่วยครับ

มัคกี้เม้า
Member
Member
Posts: 98
Joined: Wed Jan 12, 2011 10:20 am

Re: ส่งแจ้งแบบอัตโนมัติ

#16

Post by มัคกี้เม้า » Mon Jan 22, 2018 2:56 pm

เรียนอาจารย์คะ
การกระทำเช่นนั้นต้องใช้ฟังก์ชั่นอะไรเข้าช่วยคะ ถึงจะSelection มากกว่า 1 จุด
รบกวนด้วยค่ะ

User avatar
snasui
Site Admin
Site Admin
Posts: 22754
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: ส่งแจ้งแบบอัตโนมัติ

#17

Post by snasui » Mon Jan 22, 2018 11:11 pm

:D ลองทำตามตัวอย่างที่ 1 ของ Ron ตาม Link นี้ดูครับ http://www.rondebruin.nl/win/s1/outlook/bmail3.htm

มัคกี้เม้า
Member
Member
Posts: 98
Joined: Wed Jan 12, 2011 10:20 am

Re: ส่งแจ้งแบบอัตโนมัติ

#18

Post by มัคกี้เม้า » Tue Jan 23, 2018 2:03 pm

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

logic
Silver
Silver
Posts: 655
Joined: Thu Mar 18, 2010 1:57 pm

Re: ส่งแจ้งแบบอัตโนมัติ

#19

Post by logic » Tue Jan 23, 2018 4:31 pm

ได้เลือกข้อมูลไว้ก่อนรันโค้ดแล้วใช่ไหม ถ้าเลือกเซลล์เดียวมันไปทั้งหมดครับ?
http://www.rondebruin.nl wrote:'Note: if the selection is one cell it will send the whole worksheet

มัคกี้เม้า
Member
Member
Posts: 98
Joined: Wed Jan 12, 2011 10:20 am

Re: ส่งแจ้งแบบอัตโนมัติ

#20

Post by มัคกี้เม้า » Wed Jan 24, 2018 8:48 am

เรียน คุณ Logic คะ
ลองใช้โค้ดที่ได้กำหนดขอบเขตช่วงของข้อมูลไว้แล้วคะ แต่พอให้โค้ดรันแล้วข้อมูลจะมาทั้งหมดค่ะ รบกวนด้วยคะ
You do not have the required permissions to view the files attached to this post.

Post Reply