Visual Basic

everzcool4 wrote:

Set rep = appl.OpenReport(Rep_Ss, 1)

Public Function send_mail(sendto As String, subject As String, _
  text As String) As Boolean
'Add The MAPI Components and
'add a MAPI Session and MAPI mail control to your form

On Error GoTo ErrHandler
    With MAPSession1
            .DownLoadMail = False
            .LogonUI = True
            .SignOn
            .NewSession = True
            MAPIMessages1.SessionID = .SessionID
    End With
    With MAPIMessages1
        .Compose
        .RecipAddress = sendto
        .AddressResolveUI = True
        .ResolveName
        .MsgSubject = subject
        .MsgNoteText = text
        .AttachmentPathName = "C:\email.rtf"
        .Send False
    End With
sendmail = True
Exit Function
ErrHandler:

MsgBox err.Description
  End Function

m2kannan wrote:

i know send mail option in vb.nat as well as c#.net.

m2kannan wrote:

If anything possiblle to send mail in vb6.0.

m2kannan wrote:

Plz give solution for me.

I are Troll

public class MyRenderer : ToolStripProfessionalRenderer
   {
       protected override void OnRenderMenuItemBackground(ToolStripItemRenderEventArgs e)
       {
           if (!e.Item.Selected)
           {
               base.OnRenderMenuItemBackground(e);
               e.Item.BackColor = Color.Black;
           }
           else
           {
               Rectangle rc = new Rectangle(Point.Empty, e.Item.Size);
               e.Graphics.FillRectangle(Brushes.Red, rc);
               e.Graphics.DrawRectangle(Pens.Black, 1, 0, rc.Width - 2, rc.Height - 1);
               e.Item.BackColor = Color.Red;
           }
       }
       protected override void OnRenderItemText(ToolStripItemTextRenderEventArgs e)
       {
           base.OnRenderItemText(e);
           if (!e.Item.Selected)
           {
               e.Item.ForeColor = Color.Red;
           }
           else
           {
               e.Item.ForeColor = Color.Black;
           }
       }
   }
   public class MenuStripAllowsCustomHighlight : MenuStrip
   {
       public MenuStripAllowsCustomHighlight()
       {
           this.Renderer = new MyRenderer();
       }

   }

Public Class Form1
    Private Sub CutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutToolStripMenuItem.Click
        TextBox1.Cut()
    End Sub

    Private Sub CopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripMenuItem.Click
        TextBox1.Copy()
    End Sub

    Private Sub PasteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteToolStripMenuItem.Click
        TextBox1.Paste()
    End Sub

    Private Sub SelectAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectAllToolStripMenuItem.Click
        TextBox1.SelectAll()
    End Sub

    End Class