Gửi email tự động trong excel (1 người xem)

NguyenVietThinh08 · 5/7/20

Xin chào cả nhà, mình lên mạng và có hướng dẫn gửi mail tự động bằng excel thông qua outlook.
Phương pháp rất hay nhưng mình muốn mở rộng tính năng 1 chút nhưng chưa biết cách làm mong các anh em bớt chút thời gian chỉ giáo
Mình muốn nhấn vào nút gửi email thì trong emal gửi đi đính kèm 1 ảnh là phần mình đã tô vuông đó hoặc 1 sheet mới chỉ có dữ liệu phần mình đã đóng khung
Không biết có cao nhân nào làm được không ạ, giúp mình với

Maika8008 · 5/7/20

Nguyenvthe đã viết:
Xin chào cả nhà, mình lên mạng và có hướng dẫn gửi mail tự động bằng excel thông qua outlook.
Phương pháp rất hay nhưng mình muốn mở rộng tính năng 1 chút nhưng chưa biết cách làm mong các anh em bớt chút thời gian chỉ giáo
Mình muốn nhấn vào nút gửi email thì trong emal gửi đi đính kèm 1 ảnh là phần mình đã tô vuông đó hoặc 1 sheet mới chỉ có dữ liệu phần mình đã đóng khung
Không biết có cao nhân nào làm được không ạ, giúp mình với

Bạn đã có code gửi mail kèm file bằng Outlook rồi đúng không?
Vậy bạn dùng code này để tạo cái ảnh vùng mà bạn đã tô vuông đó, có tên là Screenshot.jpg cùng đường dẫn với file chứa code. Đính kèm file ảnh này vào mail

PHP:

Sub Screenshot2JPG()

Dim FPath As String, FName As String
Dim pic_rng As Range
Dim ShTemp As Worksheet
Dim ChTemp As Chart
Dim PicTemp As Picture

    FPath = ThisWorkbook.path & "\"
    FName = "Screenshot.jpg"
    
    Application.ScreenUpdating = False
    Set pic_rng = Worksheets("Main").Range("A1:D7")  'Thay doi vung neu can
    Set ShTemp = Worksheets.Add
    Charts.Add
    ActiveChart.Location Where:=xlLocationAsObject, Name:=ShTemp.Name
    Set ChTemp = ActiveChart
    pic_rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    ChTemp.Paste
    Set PicTemp = Selection
    With PicTemp
        .Width = ChTemp.Parent.Width - 1
        .Height = ChTemp.Parent.Height - 1
    End With
    
    ChTemp.Export FileName:=FPath & FName, FilterName:="jpg"
    Application.DisplayAlerts = False
    ShTemp.Delete
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
End Sub

NguyenVietThinh08 · 5/7/20

Maika8008 đã viết:

Bạn đã có code gửi mail kèm file bằng Outlook rồi đúng không?
Vậy bạn dùng code này để tạo cái ảnh vùng mà bạn đã tô vuông đó, có tên là Screenshot.jpg cùng đường dẫn với file chứa code. Đính kèm file ảnh này vào mail

PHP:

Sub Screenshot2JPG()

Dim FPath As String, FName As String
Dim pic_rng As Range
Dim ShTemp As Worksheet
Dim ChTemp As Chart
Dim PicTemp As Picture

    FPath = ThisWorkbook.path & "\"
    FName = "Screenshot.jpg"
   
    Application.ScreenUpdating = False
    Set pic_rng = Worksheets("Main").Range("A1:D7")  'Thay doi vung neu can
    Set ShTemp = Worksheets.Add
    Charts.Add
    ActiveChart.Location Where:=xlLocationAsObject, Name:=ShTemp.Name
    Set ChTemp = ActiveChart
    pic_rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    ChTemp.Paste
    Set PicTemp = Selection
    With PicTemp
        .Width = ChTemp.Parent.Width - 1
        .Height = ChTemp.Parent.Height - 1
    End With
   
    ChTemp.Export FileName:=FPath & FName, FilterName:="jpg"
    Application.DisplayAlerts = False
    ShTemp.Delete
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
   
End Sub

Thank bạn nhé, mình cũng mới tập tành VBA, mình sẽ chạy thử code xem sao, có gì xin chỉ giáo, Cảm ơn bạn nhiều

Bài đã được tự động gộp: 5/7/20

Nguyenvthe đã viết:
Thank bạn nhé, mình cũng mới tập tành VBA, mình sẽ chạy thử code xem sao, có gì xin chỉ giáo, Cảm ơn bạn nhiều

Mình chạy đến đoạn này thì lỗi, bạn có thể chỉ giáo giùm thêm phần này không,
Với mình muốn hỏi thêm nếu muốn đính kèm file ảnh vừa chụp vào thì làm thế nào ạ,
Phần '???????????????????????? trong đoạn code trên là đường link theo mình tìm hiểu, bạn có thể chỉ giáo hoặc hoàn thiện giúp mình được không ạ

Sub gui_thu()
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")

Dim i As Integer

For i = 1 To 3
ThisWorkbook.Sheets(2).Range("D1") = i
Dim olmail As Outlook.MailItem
Set olmail = olApp.CreateItem(olMailItem)

olmail.To = ThisWorkbook.Sheets(2).Range("D3")
olmail.Subject = ThisWorkbook.Sheets(2).Range("h1")
olmail.Body = ThisWorkbook.Sheets(2).Range("H2")
olmail.Attachments.Add '???????????????????????????
olmail.Send
Next

End Sub

Maika8008 · 5/7/20

Nguyenvthe đã viết:
Xin chào cả nhà, mình lên mạng và có hướng dẫn gửi mail tự động bằng excel thông qua outlook.
Phương pháp rất hay nhưng mình muốn mở rộng tính năng 1 chút nhưng chưa biết cách làm mong các anh em bớt chút thời gian chỉ giáo
Mình muốn nhấn vào nút gửi email thì trong emal gửi đi đính kèm 1 ảnh là phần mình đã tô vuông đó hoặc 1 sheet mới chỉ có dữ liệu phần mình đã đóng khung
Không biết có cao nhân nào làm được không ạ, giúp mình với

Hoặc bạn dùng code này

PHP:

Sub ActionExport()

    ExportRange Range("G174:K191"), ThisWorkbook.path & "\" & "Screenshot.jpg"

End Sub


Sub ExportRange(rng As Range, sPath As String)

    Dim cob, sc

    rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture

    Set cob = rng.Parent.ChartObjects.Add(10, 10, 200, 200)
    'remove any series which may have been auto-added...
    Set sc = cob.Chart.SeriesCollection
    Do While sc.Count > 0
        sc(1).Delete
    Loop

    With cob
        .Height = rng.Height
        .Width = rng.Width
        .Chart.Paste
        .Chart.Export FileName:=sPath, Filtername:="JPG"
        .Delete
    End With

End Sub

Bài đã được tự động gộp: 5/7/20

Nguyenvthe đã viết:
Thank bạn nhé, mình cũng mới tập tành VBA, mình sẽ chạy thử code xem sao, có gì xin chỉ giáo, Cảm ơn bạn nhiều

Bài đã được tự động gộp: 5/7/20

Mình chạy đến đoạn này thì lỗi, bạn có thể chỉ giáo giùm thêm phần này không,
Với mình muốn hỏi thêm nếu muốn đính kèm file ảnh vừa chụp vào thì làm thế nào ạ,
Phần '???????????????????????? trong đoạn code trên là đường link theo mình tìm hiểu, bạn có thể chỉ giáo hoặc hoàn thiện giúp mình được không ạ

Sub gui_thu()
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")

Dim i As Integer

For i = 1 To 3
ThisWorkbook.Sheets(2).Range("D1") = i
Dim olmail As Outlook.MailItem
Set olmail = olApp.CreateItem(olMailItem)

olmail.To = ThisWorkbook.Sheets(2).Range("D3")
olmail.Subject = ThisWorkbook.Sheets(2).Range("h1")
olmail.Body = ThisWorkbook.Sheets(2).Range("H2")
olmail.Attachments.Add '???????????????????????????
olmail.Send
Next

End Sub

Tôi chạy rồi mới gửi, máy tôi không lỗi chỗ đó. Bạn xem mã lỗi là gì? và trong Tools/References có bị thiếu thư viện gì không?

Với câu hỏi thứ hai: tôi chưa dùng code gửi mail bằng Outlook nhưng đã dùng với Gmail. Code với Gmail chỗ đó là .AddAttachment FPath & "Screenshot.jpg"

NguyenVietThinh08 · 5/7/20

Maika8008 đã viết:
Hoặc bạn dùng code này

PHP:

Sub ActionExport() ExportRange Range("G174:K191"), ThisWorkbook.path & "\" & "Screenshot.jpg" End Sub Sub ExportRange(rng As Range, sPath As String) Dim cob, sc rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture Set cob = rng.Parent.ChartObjects.Add(10, 10, 200, 200) 'remove any series which may have been auto-added... Set sc = cob.Chart.SeriesCollection Do While sc.Count > 0 sc(1).Delete Loop With cob .Height = rng.Height .Width = rng.Width .Chart.Paste .Chart.Export FileName:=sPath, Filtername:="JPG" .Delete End With End Sub

Bài đã được tự động gộp: 5/7/20

Tôi chạy rồi mới gửi, máy tôi không lỗi chỗ đó. Bạn xem mã lỗi là gì? và trong Tools/References có bị thiếu thư viện gì không?

Với câu hỏi thứ hai: tôi chưa dùng code gửi mail bằng Outlook nhưng đã dùng với Gmail. Code với Gmail chỗ đó là .AddAttachment FPath & "Screenshot.jpg"

Vẫn thấy lỗi bạn ạ, mình cũng mới tập tành excel nên nhìn vào cũng quá sức với mình,

Maika8008 · 5/7/20

Nguyenvthe đã viết:
Vẫn thấy lỗi bạn ạ, mình cũng mới tập tành excel nên nhìn vào cũng quá sức với mình,

Bạn chụp cái hộp thoại popup báo lỗi gửi lên đây xem

Bài đã được tự động gộp: 5/7/20

Maika8008 đã viết:
Bạn chụp cái hộp thoại popup báo lỗi gửi lên đây xem

Bạn xem có tích mấy cái thư viện này không (nếu chưa thì kéo xuống tìm tích chọn vào thử): OLE Automation, Microsoft Form 2.0 Object Library và Microsoft Scripting R

untime

NguyenVietThinh08 · 5/7/20

Maika8008 đã viết:
Hoặc bạn dùng code này

PHP:

Sub ActionExport() ExportRange Range("G174:K191"), ThisWorkbook.path & "\" & "Screenshot.jpg" End Sub Sub ExportRange(rng As Range, sPath As String) Dim cob, sc rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture Set cob = rng.Parent.ChartObjects.Add(10, 10, 200, 200) 'remove any series which may have been auto-added... Set sc = cob.Chart.SeriesCollection Do While sc.Count > 0 sc(1).Delete Loop With cob .Height = rng.Height .Width = rng.Width .Chart.Paste .Chart.Export FileName:=sPath, Filtername:="JPG" .Delete End With End Sub

Bài đã được tự động gộp: 5/7/20

Tôi chạy rồi mới gửi, máy tôi không lỗi chỗ đó. Bạn xem mã lỗi là gì? và trong Tools/References có bị thiếu thư viện gì không?

Với câu hỏi thứ hai: tôi chưa dùng code gửi mail bằng Outlook nhưng đã dùng với Gmail. Code với Gmail chỗ đó là .AddAttachment FPath & "Screenshot.jpg"

Ý tưởng của mình là gửi mail cho nhiều người trong 1 danh sách email có sẵn, với mỗi mail sẽ là đính kèm 1 ảnh chụp, vì mỗi người là l=khác nhau nên ảnh chụp cũng khác nhau

Bài đã được tự động gộp: 5/7/20

Maika8008 đã viết:
Bạn chụp cái hộp thoại popup báo lỗi gửi lên đây xem

Bài đã được tự động gộp: 5/7/20

Bạn xem có tích mấy cái thư viện này không (nếu chưa thì kéo xuống tìm tích chọn vào thử): OLE Automation, Microsoft Form 2.0 Object Library và Microsoft Scripting RView attachment 240511untime
View attachment 240511

Đây ạ, anh em nghiên cứu giúp mình, mình đã lần mò các trang web 2 tuần nay rồi, anh em giúp mình nhé

Bài đã được tự động gộp: 5/7/20

Nguyenvthe đã viết:
Ý tưởng của mình là gửi mail cho nhiều người trong 1 danh sách email có sẵn, với mỗi mail sẽ là đính kèm 1 ảnh chụp, vì mỗi người là l=khác nhau nên ảnh chụp cũng khác nhau

Bài đã được tự động gộp: 5/7/20

Đây ạ, anh em nghiên cứu giúp mình, mình đã lần mò các trang web 2 tuần nay rồi, anh em giúp mình nhé

mã khóa là 1508 nhé

Maika8008 · 5/7/20

Nguyenvthe đã viết:
Ý tưởng của mình là gửi mail cho nhiều người trong 1 danh sách email có sẵn, với mỗi mail sẽ là đính kèm 1 ảnh chụp, vì mỗi người là l=khác nhau nên ảnh chụp cũng khác nhau

Bài đã được tự động gộp: 5/7/20

Đây ạ, anh em nghiên cứu giúp mình, mình đã lần mò các trang web 2 tuần nay rồi, anh em giúp mình nhé

Để tôi xem rồi trả lời. Tuy nhiên nếu biết không nhiều về VBA thì mệt lắm, không tùy biến được nên cứ mỗi tí mỗi hỏi

NguyenVietThinh08 · 5/7/20

Maika8008 đã viết:
Để tôi xem rồi trả lời. Tuy nhiên nếu biết không nhiều về VBA thì mệt lắm, không tùy biến được nên cứ mỗi tí mỗi hỏi

Vâng, có gì giúp mình nhé, mình cũng mới tập tành, mỗi lần ghép công thức rồi chạy thử lại sai thì mệt quá
Thank bạn nhé!

Maika8008 · 5/7/20

Nguyenvthe đã viết:
Ý tưởng của mình là gửi mail cho nhiều người trong 1 danh sách email có sẵn, với mỗi mail sẽ là đính kèm 1 ảnh chụp, vì mỗi người là l=khác nhau nên ảnh chụp cũng khác nhau

Bài đã được tự động gộp: 5/7/20

Đây ạ, anh em nghiên cứu giúp mình, mình đã lần mò các trang web 2 tuần nay rồi, anh em giúp mình nhé

Bài đã được tự động gộp: 5/7/20

mã khóa là 1508 nhé

1805 mà bảo là 1508, hehe, bạn tếu thiệt. Tôi nhạy với mấy con số lắm gõ lần thứ 2 là trúng y

NguyenVietThinh08 · 5/7/20

Maika8008 đã viết:
1805 mà bảo là 1508, hehe, bạn tếu thiệt. Tôi nhạy với mấy con số lắm gõ lần thứ 2 là trúng y

chắc do mải nghĩ quá nên mình nhầm, sory nhé

Maika8008 · 5/7/20

Nguyenvthe đã viết:
chắc do mải nghĩ quá nên mình nhầm, sory nhé

Thử bị lỗi gì không nhé. Tôi chỉ dùng Gmail, không biết cái Outlook đâu nhé

NguyenVietThinh08 · 5/7/20

Maika8008 đã viết:
Thử bị lỗi gì không nhé. Tôi chỉ dùng Gmail, không biết cái Outlook đâu nhé

Mình gửi được rồi nhưng cái ảnh đính kèm không có nội dung gì cả

((

NguyenVietThinh08 · 5/7/20

Maika8008 đã viết:
Thử bị lỗi gì không nhé. Tôi chỉ dùng Gmail, không biết cái Outlook đâu nhé

Ngày mai bạn giúp mình một lần nữa được không ạ, mình đã gửi được như ý nhưng cái ảnh đính kèm lại không có nội dung ạ,

Maika8008 · 6/7/20

Nguyenvthe đã viết:
Ngày mai bạn giúp mình một lần nữa được không ạ, mình đã gửi được như ý nhưng cái ảnh đính kèm lại không có nội dung ạ,

Gửi cái file của bạn lên tôi xem thử

NguyenVietThinh08 · 6/7/20

Maika8008 đã viết:
Gửi cái file của bạn lên tôi xem thử
Đây ạ, bạn xem giúp mình được không, gửi thì được rồi nhưng đính kèm lại trống trơn ạ

befaint · 6/7/20

Nguyenvthe đã viết:
làm

Lấy ở bài #5 về làm dùng.

Gửi email từ excel bằng VBA

Chào các Anh GPE, Em có một bài toán đang giải mà chưa ra, nhờ các Anh chỉ giáo. Mục đích: Gửi chi tiết bảng lương tới email của từng người (Tê, ID code theo tên, thông tin v.v.v) có sẵn 1. VD em có chi tiết 100 người nhận lương từ sheet DATA & TEMPLATE : TỪ Ô A4:AC8 2. Từ ô B10:F24 là cái...

www.giaiphapexcel.com

Maika8008 · 6/7/20

Xem đã có thư viện OLE Automation chưa? Tôi lấy file bạn dùng vẫn OK.

NguyenVietThinh08 · 6/7/20

Maika8008 đã viết:
Xem đã có thư viện OLE Automation chưa? Tôi lấy file bạn dùng vẫn OK.
View attachment 240557

Mình bật rồi ạ, nhưng mà vẫn là ảnh trắng

Maika8008 · 6/7/20

Nguyenvthe đã viết:
Mình bật rồi ạ, nhưng mà vẫn là ảnh trắng

Dán cái hộp thoại References lên xem thử bạn

NguyenVietThinh08 · 6/7/20

Maika8008 đã viết:
Dán cái hộp thoại References lên xem thử bạn

Đây ạ, Những dòng khác chưa được tick ạ

Bài đã được tự động gộp: 6/7/20

Maika8008 đã viết:
Dán cái hộp thoại References lên xem thử bạn

Đây ạ,, những ô khác chưa được tick ạ

Bài đã được tự động gộp: 6/7/20

Maika8008 đã viết:
Dán cái hộp thoại References lên xem thử bạn

Đay ạ

Maika8008 · 6/7/20

Nguyenvthe đã viết:
Đây ạ, Những dòng khác chưa được tick ạ

Vậy bạn thử debug dòng .Chart.Paste trong sub này thử, xem nó có dán được vùng kết quả vào không?
Sub ExportRange(rng As Range, sPath As String)

Dim cob, sc

rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture

Set cob = rng.Parent.ChartObjects.Add(10, 10, 200, 200)
'remove any series which may have been auto-added...
Set sc = cob.Chart.SeriesCollection
Do While sc.Count > 0
sc(1).Delete
Loop

With cob
.Height = rng.Height
.Width = rng.Width
.Chart.Paste
.Chart.Export Filename:=sPath, Filtername:="JPG"
.Delete
End With

End Sub

NguyenVietThinh08 · 6/7/20

Maika8008 đã viết:
Vậy bạn thử debug dòng .Chart.Paste trong sub này thử, xem nó có dán được vùng kết quả vào không?
Sub ExportRange(rng As Range, sPath As String)

Dim cob, sc

rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture

Set cob = rng.Parent.ChartObjects.Add(10, 10, 200, 200)
'remove any series which may have been auto-added...
Set sc = cob.Chart.SeriesCollection
Do While sc.Count > 0
sc(1).Delete
Loop

With cob
.Height = rng.Height
.Width = rng.Width
.Chart.Paste
.Chart.Export Filename:=sPath, Filtername:="JPG"
.Delete
End With

End Sub

(( vẫn ko được ạ

Bài đã được tự động gộp: 6/7/20

Nguyenvthe đã viết:
(( vẫn ko được ạ

Mình cũng mới tập tành VBA nên nhìn vào dòng lệnh này vẫn quá sức với mình ạ

Maika8008 · 6/7/20

Nguyenvthe đã viết:
(( vẫn ko được ạ

Bấm F9 để dừng code ở 1 dòng nào đó rồi sau đó cứ bấm F8 để xem kết quả từng dòng lệnh (lật qua lật lại giữa bảng tính và cửa sổ lệnh để xem). Có gì khó mấy đâu, chỉ là bạn không chịu khó.

NguyenVietThinh08 · 6/7/20

Maika8008 đã viết:
Bấm F9 để dừng code ở 1 dòng nào đó rồi sau đó cứ bấm F8 để xem kết quả từng dòng lệnh (lật qua lật lại giữa bảng tính và cửa sổ lệnh để xem). Có gì khó mấy đâu, chỉ là bạn không chịu khó.

Mình mới học VBA được 1 tháng thôi, chủ yếu là đi cóp nhặt ở mấy diễn đàn và video nên mình không biết thật,

Maika8008 · 6/7/20

Nguyenvthe đã viết:
Mình mới học VBA được 1 tháng thôi, chủ yếu là đi cóp nhặt ở mấy diễn đàn và video nên mình không biết thật,

Nếu bạn không biết debug là gì thì bạn tìm trên GPE hoặc google ra để học cách debug. Còn nếu đã biết debug thì ở trên bạn hẳn phải trả lời rõ cho tôi biết câu lệnh .Chart.Paste đó nó tác dụng ra sao chứ không thể nói chung chung "vẫn không được ạ" như thế. Đồng thời, nếu Sub trong file không được thì bạn cũng nên dùng cái Sub đầu tiên tôi gửi để thử chứ (thử riêng để biết có tạo được ảnh kết quả không). Tôi nói không chịu khó là như vậy đó.

NguyenVietThinh08 · 6/7/20

Maika8008 đã viết:
Bấm F9 để dừng code ở 1 dòng nào đó rồi sau đó cứ bấm F8 để xem kết quả từng dòng lệnh (lật qua lật lại giữa bảng tính và cửa sổ lệnh để xem). Có gì khó mấy đâu, chỉ là bạn không chịu khó.

Bằng 1 cách nào đó mình đã đính kèm được, sau đó mình chỉnh sửa hay sao ấy mình là không làm được như thế nữa

thnghiachau · 6/7/20

Maika8008 đã viết:
Vậy bạn thử debug dòng .Chart.Paste trong sub này thử, xem nó có dán được vùng kết quả vào không?
Sub ExportRange(rng As Range, sPath As String)

Dim cob, sc

rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture

Set cob = rng.Parent.ChartObjects.Add(10, 10, 200, 200)
'remove any series which may have been auto-added...
Set sc = cob.Chart.SeriesCollection
Do While sc.Count > 0
sc(1).Delete
Loop

With cob
.Height = rng.Height
.Width = rng.Width
.Chart.Paste
.Chart.Export Filename:=sPath, Filtername:="JPG"
.Delete
End With

End Sub

Mình cũng từng bị như thế! có nghĩa là hình paste vào trống trơn hổng có gì, và mình thêm cái lệnh active chart trước lệnh .Chart.Paste thì OK

NguyenVietThinh08 · 6/7/20

thnghiachau đã viết:
Mình cũng từng bị như thế! có nghĩa là hình paste vào trống trơn hổng có gì, và mình thêm cái lệnh active chart trước lệnh .Chart.Paste thì OK

Hoàn toàn không được ạ, mình đã thêm lệnh nhưng còn báo lỗi,

thnghiachau · 6/7/20

Nguyenvthe đã viết:
Hoàn toàn không được ạ, mình đã thêm lệnh nhưng còn báo lỗi,

thêm lệnh gì?
ghi lại dòng lệnh thêm và chụp hình lỗi

NguyenVietThinh08 · 6/7/20

thnghiachau đã viết:
thêm lệnh gì?
ghi lại dòng lệnh thêm và chụp hình lỗi

đây ạ, mình không biết mình đã sửa lệnh gì mà nó đã gửi có đính kèm ảnh có nội dung, giờ thì không biết các nào sữa nữa

thnghiachau · 6/7/20

Nguyenvthe đã viết:
đây ạ, mình không biết mình đã sửa lệnh gì mà nó đã gửi có đính kèm ảnh có nội dung, giờ thì không biết các nào sữa nữa
View attachment 240610

trên dòng With cob thêm thử "cob.Active"
nếu vẫn bị thì thử " cob.Parent.Active "
hoặc " cob.Chart.Parent.Active "
vì mình không biết rõ lắm cái cob của bạn như thế nào.

NguyenVietThinh08 · 6/7/20

Nguyenvthe đã viết:
đây ạ, mình không biết mình đã sửa lệnh gì mà nó đã gửi có đính kèm ảnh có nội dung, giờ thì không biết các nào sữa nữa
View attachment 240610

Không được ạ, mình khá đau đầu vì không biết nhiều

thnghiachau · 6/7/20

Nguyenvthe đã viết:
Không được ạ, mình khá đau đầu vì không biết nhiều

đã thử hết 3 trường hợp đó chưa???
gởi file của bạn cho mình coi

NguyenVietThinh08 · 6/7/20

thnghiachau đã viết:
trên dòng With cob thêm thử "cob.Active"
nếu vẫn bị thì thử " cob.Parent.Active "
hoặc " cob.Chart.Parent.Active "
vì mình không biết rõ lắm cái cob của bạn như thế nào.

befaint · 6/7/20

Copy sau Delete.

thnghiachau · 6/7/20

befaint đã viết:
Copy sau Delete.

cái này

để sau cái này

An.BA · 6/7/20

Nguyenvthe đã viết:
Xin chào cả nhà, mình lên mạng và có hướng dẫn gửi mail tự động bằng excel thông qua outlook.
Phương pháp rất hay nhưng mình muốn mở rộng tính năng 1 chút nhưng chưa biết cách làm mong các anh em bớt chút thời gian chỉ giáo
Mình muốn nhấn vào nút gửi email thì trong emal gửi đi đính kèm 1 ảnh là phần mình đã tô vuông đó hoặc 1 sheet mới chỉ có dữ liệu phần mình đã đóng khung
Không biết có cao nhân nào làm được không ạ, giúp mình với

Gửi email của bạn sao không phải gửi nội dung + format như hình được à mà phải gửi kiểu dạng ảnh để làm gì nhỉ?

thnghiachau · 6/7/20

Tạm ngưng bàn luận cho tới khi có file nhá

befaint · 6/7/20

thnghiachau đã viết:
cái này

Copy cơ mà
Dòng này để sau khúc Delete, trước Paste.

NguyenVietThinh08 · 6/7/20

An.BA đã viết:
Gửi email của bạn sao không phải gửi nội dung + format như hình được à mà phải gửi kiểu dạng ảnh để làm gì nhỉ?

Nguyên nhân là nhiều người khi nhân được file ảnh sẽ dễ dàng hơn là nhận file excel, không phải công nhân viên nào cũng có máy tính để mở ra, việc mở ảnh cũng đơn giản hơn, Nhưng mà thực sự đau đầu quá, mình từ sáng cũng thử hết cách rồi,

thnghiachau · 6/7/20

Nguyenvthe đã viết:
Nguyên nhân là nhiều người khi nhân được file ảnh sẽ dễ dàng hơn là nhận file excel, không phải công nhân viên nào cũng có máy tính để mở ra, việc mở ảnh cũng đơn giản hơn, Nhưng mà thực sự đau đầu quá, mình từ sáng cũng thử hết cách rồi,

muốn hết đau đầu không? .... quay về bài #39

An.BA · 6/7/20

Nguyenvthe đã viết:
Nguyên nhân là nhiều người khi nhân được file ảnh sẽ dễ dàng hơn là nhận file excel, không phải công nhân viên nào cũng có máy tính để mở ra, việc mở ảnh cũng đơn giản hơn, Nhưng mà thực sự đau đầu quá, mình từ sáng cũng thử hết cách rồi,

Không bạn ơi,Ý của mình là gửi cái nội dung đó như 1 phần nội dung của email
Chứ k phải đính kèm ảnh hay file (vì nhiều lúc mạng kém load nội dung email nhanh hơn là load 1 cái ảnh)

NguyenVietThinh08 · 6/7/20

An.BA đã viết:
Không bạn ơi,Ý của mình là gửi cái nội dung đó như 1 phần nội dung của email
Chứ k phải đính kèm ảnh hay file (vì nhiều lúc mạng kém load nội dung email nhanh hơn là load 1 cái ảnh)

không phải do mạng đâu ạ, mình ở công ty mà, mạng cũng khỏe

befaint · 6/7/20

Nguyenvthe đã viết:
đau đầu

Đau đầu nỗi gì. Đã xem bài này chửa? Chỉ việc tải file về là chiến luôn.

An.BA · 6/7/20

Nguyenvthe đã viết:
không phải do mạng đâu ạ, mình ở công ty mà, mạng cũng khỏe

Ý t là gửi đi nó kiểu dạng như nội dung như này k được à mà nhất thiết bạn gửi theo kiểu copy nó thành ảnh để gửi

NguyenVietThinh08 · 6/7/20

An.BA đã viết:
View attachment 240616
Ý t là gửi đi nó kiểu dạng như nội dung như này k được à mà nhất thiết bạn gửi theo kiểu copy nó thành ảnh để gửi

Ah. Dc. Nhưng lúc đầu phương hướng của mình là như vậy

Quang_Hải · 6/7/20

Nguyenvthe đã viết:
Xin chào cả nhà, mình lên mạng và có hướng dẫn gửi mail tự động bằng excel thông qua outlook.
Phương pháp rất hay nhưng mình muốn mở rộng tính năng 1 chút nhưng chưa biết cách làm mong các anh em bớt chút thời gian chỉ giáo
Mình muốn nhấn vào nút gửi email thì trong emal gửi đi đính kèm 1 ảnh là phần mình đã tô vuông đó hoặc 1 sheet mới chỉ có dữ liệu phần mình đã đóng khung
Không biết có cao nhân nào làm được không ạ, giúp mình với

Bài toán cũng đơn giản mà. Thử đơn giản vầy đi. Nếu Ok thì tự edit lại nhé.

Mã:

Sub ExcelRangeToMailBody()
Range("A5:F17").CopyPicture
With CreateObject("Outlook.Application")
   With .CreateItem(0)
      .To = "A"
      .Subject = "B"
      .Display
   End With
   .ActiveInspector.WordEditor.Application.Selection.Paste
End With
End Sub

PS: File của bạn chẳng khoa học tí nào

NguyenVietThinh08 · 6/7/20

Vâng ạ. em cũng mới thôi ạ nên chưa biết nhiều ạ

Gửi email tự động trong excel (1 người xem)

Người dùng đang xem chủ đề này

Thành viên chính thức

File đính kèm

Thành viên gạo cội

Thành viên chính thức

File đính kèm

Thành viên gạo cội

Thành viên chính thức

Thành viên gạo cội

Thành viên chính thức

File đính kèm

Thành viên gạo cội

Thành viên chính thức

Thành viên gạo cội

Thành viên chính thức

Thành viên gạo cội

File đính kèm

Thành viên chính thức

Thành viên chính thức

Thành viên gạo cội

Thành viên chính thức

File đính kèm

|||||||||||||

Thành viên gạo cội

Thành viên chính thức

Thành viên gạo cội

Thành viên chính thức

File đính kèm

Thành viên gạo cội

Thành viên chính thức

Thành viên gạo cội

Thành viên chính thức

Thành viên gạo cội

Thành viên chính thức

Chỉ biết ngồi BÈ và PHÁN chuyện!!!

Thành viên chính thức

Chỉ biết ngồi BÈ và PHÁN chuyện!!!

Thành viên chính thức

Chỉ biết ngồi BÈ và PHÁN chuyện!!!

Thành viên chính thức

Chỉ biết ngồi BÈ và PHÁN chuyện!!!

Thành viên chính thức

|||||||||||||

Chỉ biết ngồi BÈ và PHÁN chuyện!!!

Thành viên thường trực

Chỉ biết ngồi BÈ và PHÁN chuyện!!!

|||||||||||||

Thành viên chính thức

Chỉ biết ngồi BÈ và PHÁN chuyện!!!

Thành viên thường trực

Thành viên chính thức

|||||||||||||

Thành viên thường trực

Thành viên chính thức

Thành viên gạo cội

Thành viên chính thức

Thời gian đếm ngược.