Visual Basic

Dim oApp As Microsoft.Office.Interop.Outlook.Application 
        oApp = New Microsoft.Office.Interop.Outlook.Application
        Dim oMsg As Microsoft.Office.Interop.Outlook.MailItem

        oMsg = CType(oApp.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem), Microsoft.Office.Interop.Outlook.MailItem)

        oMsg.Subject = "Hello!!!"
        oMsg.Body = "Hello World"
        oMsg.To = "zzzzzzz@zzzzz.com"
       
        oMsg.Send()

sFile = New IO.DirectoryInfo(Application.LocalUserAppDataPath).Parent.FullName

Private NotInheritable Class myClass
        Inherits System.Windows.Forms.AxHost
        Public Shared Shadows Function GetPictureFromIPicture(ByVal picture As Object) As Image
            Return AxHost.GetPictureFromIPicture(picture)
        End Function
    End Class 

Dim pic As Bitmap = MyClass.GetPictureFromIPicture(GflAxObj.GetPicture)

Private Sub Command1_Click()
    Dim intFile     As Integer  '// Next available number for the Open statement
    Dim ImageData   As String   '// Image contents
    Dim Body        As String   '// Body contents
    Dim Header      As String   '// Header contents

    '// Get the image contents
    imagepath = App.Path & "\" & "test.jpg" ' max 3mb image size limited
    intFile = FreeFile
    Open imagepath For Binary As #intFile
        ImageData = String(LOF(intFile), Chr(0))
        Get #intFile, , ImageData
    Close #intFile

    Body = "Content-Disposition: form-data; name=""fileupload""; filename=""" & vbCrLf
    Body = Body & "Content-Type: multipart/form-data" & vbCrLf
    Body = Body & vbCrLf & ImageData


    Header = "Host: imageshack.us" & vbCrLf
    Header = Header & "Content-Type: multipart/form-data  & vbCrLf"
    Header = Header & "Content-Length: " & Len(ImageData) & vbCrLf & vbCrLf


    'upload now
    Inet.Execute "http://www.imageshack.us", "POST", Body, Header
    
      While Inet.StillExecuting
        DoEvents
      Wend
      
      Dim s$, ret$
      
      s = Inet.GetChunk(1024)
      Do Until s = ""
        ret = ret & s
        s = Inet.GetChunk(1024)
      Loop
      
      'check upload completed
      If InStr(1, ret, "Show Advanced Linking") > 0 Then MsgBox "upload completed"
  End Sub