Soru userform'u mail body'de göndermek

[GursoyC]

Merhaba,
bu konuda çok araştırma yaptım, tek kaynak şu linkte sayın Halit bey'in cevap döndüğü konu. Ancak onda da istenilen yapılamıyor.

https://www.excel.web.tr/threads/userformu-mail-bodyde-resim-olarak-goender.157712/

Bir userform'u olduğu gibi foto olarak mail body'e yapıştırıp gönderecek bir kod var mıdır acaba?

 

[turist]

Sayın @unlimitted
Örnek olması amacıyla eklenen dosyayı inceleyiniz.

 

[GursoyC]

Sayın Turist merhaba,
öncelikle ilginize teşekkür ederim. Bilgisayarım Win64. Yani Module1'deki kodlara göre şu kodları okumalı.

Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_SNAPSHOT = &H2C

Ancak yine de düğmeye bastığımda userform'un fotosunu dahi çektiremedim.

 

[turist]

Sayfada bulunan "UserFormu Aç" düğmesine tıklayıp, UseForm açıldıktan sonra ;
UserForm1 üzerindeki CommandButton1'e tıklayıp deneyin.

 

[GursoyC]

Aynen dediğinizi yapıyorum ama maalesef çekmiyor. Sanırım istediğimi yapmanın başka bir yöntemini kullanma çalışmasına başlamalıyım.
Yine de ilginize teşekkür ederim.
Saygılar,

 

[turist]

 

[GursoyC]

Gerçekten çok enteresan, çünkü bendeki durum şu:

 

[turist]

Hata veren kodun tamamını silin.
Yerine

Private Sub CommandButton1_Click()
keybd_event VK_SNAPSHOT, 1, 0, 0
ActiveSheet.Paste
End Sub

Bunu yazarak dosyanızı kaydedip kapatın.
Tekrar açarak; UserForm'daki CommandButton1'e tıklayın.
Not:
64 Bit işletim sisteminizdeki VBA Module kısmındaki kodu ta tamamen silerek

Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
    ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
   
    Public Const VK_SNAPSHOT = &H2C

şeklinde yazın.

 

[GursoyC]

Merhaba Sayın Turist,
Dediklerinizi yaptım. Ve gayet güzel oldu.
Çok teşekkür ederim. Mail atma kısmını ben çözmeye çalışırım. Saygılar.

 

[turist]

Merhaba Sayın Turist,
Dediklerinizi yaptım. Ve gayet güzel oldu.
Çok teşekkür ederim. Mail atma kısmını ben çözmeye çalışırım. Saygılar.

Sağ olun, iyi çalışmalar.