Gửi email tự động trong excel

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

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.

Gửi email tự động trong excel

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

File đính kèm

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!!!

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