Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'OBTENER IMAGEN
- Public Class Form1
- Dim b As Bitmap
- Sub New()
- ' This call is required by the designer.
- InitializeComponent()
- ' Add any initialization after the InitializeComponent() call.
- b = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
- ScreenCapturePanel.Image = b
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- If b IsNot Nothing Then
- Dim g As Graphics = Graphics.FromImage(b)
- g.CopyFromScreen(Screen.PrimaryScreen.Bounds.Location, New Point(0, 0), Screen.PrimaryScreen.Bounds.Size)
- Cursor.Draw(g, New Rectangle(Cursor.Position, Cursor.Size))
- g.Dispose()
- Me.Refresh()
- End If
- End Sub
- End Class
- 'ENVIARLA
- Imports EASendMail 'Add EASendMail namespace
- Module Module1
- Sub Main()
- Dim oMail As New SmtpMail("TryIt")
- Dim oSmtp As New SmtpClient()
- ' Set sender email address, please change it to yours
- oMail.From = "test@emailarchitect.net"
- ' Set recipient email address, please change it to yours
- oMail.To = "support@emailarchitect.net"
- ' Set email subject
- oMail.Subject = "test HTML email with embedded image"
- ' Your SMTP server address
- Dim oServer As New SmtpServer("smtp.emailarchitect.net")
- ' User and password for ESMTP authentication, if your server doesn't require
- ' User authentication, please remove the following codes.
- oServer.User = "test@emailarchitect.net"
- oServer.Password = "testpassword"
- ' If your smtp server requires SSL/TLS connection, please add this line
- ' oServer.ConnectType = SmtpConnectType.ConnectSSLAuto
- Try
- ' Add image attachment from local disk
- Dim oAttachment As Attachment = oMail.AddAttachment("d:\test.gif")
- ' Specifies the attachment as an embedded picture
- ' contentid can be any string.
- Dim contentID As String = "test001@host"
- oAttachment.ContentID = contentID
- oMail.HtmlBody = "<html><body>this is a <img src=""cid:" _
- + contentID + """> embedded picture.</body></html>"
- Console.WriteLine("start to send email with embedded image ...")
- oSmtp.SendMail(oServer, oMail)
- Console.WriteLine("email was sent successfully!")
- Catch ep As Exception
- Console.WriteLine("failed to send email with the following error:")
- Console.WriteLine(ep.Message)
- End Try
- End Sub
- End Module
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement