Sichere Textabfrage im Internet

    'Kontrolle ob Outlook schon offen, sonst mit Profil "#OFFLINE#" öffnen.  
    Dim oApp As Outlook.Application
    Set oApp = GetObject(, "Outlook.Application")  

    If Err.Number = 0 Then      ' Outlook schon offen  
        MsgBox "OL schon offen!"  
        Exit Sub
    Else                        ' Outlook noch zu öffnen  
        MsgBox "Öffne OL!"  
        Dim oSess As Outlook.NameSpace
        Dim oFld As Outlook.MAPIFolder
        Dim oExpl As Outlook.Explorer
     
        ' Logon  
        Set oApp = New Outlook.Application
        Set oSess = oApp.GetNamespace("mapi")  
        oSess.Logon "#OFFLINE#", , False, True  
     
        ' Ordner zur Anzeige auswählen  
        Set oFld = oSess.GetDefaultFolder(olFolderInbox)
        Set oExpl = oApp.Explorers.Add(oFld)
        oExpl.Display
    End If 

MAPISession1.SignOn  					
MAPIMessages1.SessionID = MAPISession1.SessionID    	

Mit Hilfe von der Befehlszeile ‚MAPIMessages1.Compose’ wird nun eine neue Mail verfasst. Dazu gehören dann die Befehle ‚MAPIMessages1.RecipDisplayName = empfänger@mail.com’, sowie ‚ MAPIMessages1.MsgSubject = „Betreff’, welche den Text für die Betreffzeile festlegt und schlussendlich noch der Befehl ‚MAPIMessages1.MsgNoteText = „Nachrichtentext“’, mit dem dann der Text für die Mail definiert wird.

Schlussendlich kann dann durch den Befehl ‚MAPIMessages1.Send’ die Mail gesendet werden. Dazu muss allerdings Microsoft Outlook geöffnet sein und ein Benutzerkonto eingerichtet sein.

Ein kleines Beispiel soll schlussendlich noch zum besseren Verständnis dienen:


Private Sub Form_Load()
    MAPISession1.SignOn
    MAPIMessages1.SessionID = MAPISession1.SessionID
   
    MAPIMessages1.Compose
    MAPIMessages1.RecipDisplayName = “empfänger@mail.com”
    MAPIMessages1.MsgSubject = “Dies ist die Betreffzeile”
    MAPIMessages1.MsgNoteText = “Dies ist der Nachrichtentext”
    MAPIMessages1.ResolveName
    MAPIMessages1.Send
End Sub 

Natürlich können auch Dateianhänge mit Visual Basic verschickt werden. Dazu werden einfach noch folgende Zeilen Code eingefügt:
MAPIMessages1.AttachmentIndex = 0
MAPIMessages1.AttachmentPosition = 0
MAPIMessages1.AttachmentName = "Datei.doc"  
MAPIMessages1.AttachmentPathName = "C:\datei.doc"