[VB6] Interazione con Outlook e visualizzazione messaggio di posta elettronica

[cusolo]

Salve a tutti
Sono un programmatore principiante , non riesco con vb6 a lanciare una applicazione outlook nella quale devo far comparire un nuovo messaggio di posta elettronica fisso ad un account da me prefissato.

L'unica cosa che ho capito che nei riferimenti dovrei mettere il riferimento da Outlook e l'ho fatto ma poi non riesco a fare comparire un nuovo messaggio di posta con il testo , l'oggetto e l'account


Grazie

[cusolo]

chi mi puo aiutare alla questione da me menzionata?

[Veronica80]

credo che dovresti cercare qualche guida sull'oggetto MAPI di vb6

[Boolean]

prova con la ShellExecute... devi dichiarare la funzione API in un form (o in un modulo rendendola Public) ed poi usarla, ad esempio, in un pulsante:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
     ByVal hwnd As Long, _
     ByVal lpOperation As String, _
     ByVal lpFile As String, _
     ByVal lpParameters As String, _
     ByVal lpDirectory As String, _
     ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
ShellExecute Me.hwnd, vbNullString, _
    "mailto:tuacasella@tuoprovider.com?Subject=Questo è l'oggetto?&Body=Corpo del messaggio di posta", _
    vbNullString, _
    vbNullString, 0
End Sub

Boolean

[cusolo]

Grazie

[cusolo]

Mi è sorto un problema nel corpo del messaggio dovrei passare dei parametri che sono NumFattura e DataFattura non riesco a farli visualizzare nell oggetto del messaggio di posta.

Come potrei risolvere la questione?
Grazie

[cusolo]

Ho provato a impostare una stringa
[code]
Dim NumFattura As Integer
Dim DataFattura As String
Dim CorpoEmail As String
NumFattura = frm_Gestione.txt_NumFattura.Text
DataFattura = frm_Gestione.txt_DataFattura.Text
CorpoEmail = "Fattura Movimentata:" & NumFattura & " " & "Del:" & DataFattura
[\code]

Immettendola nel comando
[code]
ShellExecute hwnd, vbNullString, _
"mailto:stefano.villa@romaentratespa.it?Subject=Ge stione FattureContabili&Body=CorpoEmail", _
vbNullString, _
vbNullString, 0
[\code]

Mi compare nella email come testo CorpoEmail.
Non riesco a capire come poter risolvere la questione.

Come potrei procedere diversamente?


Grazie

[Boolean]

Originariamente inviato da cusolo
Immettendola nel comando

ShellExecute hwnd, vbNullString, _
    "mailto:stefano.villa@romaentratespa.it?Subject=Gestione FattureContabili&Body=CorpoEmail", _
    vbNullString, _
    vbNullString, 0

Mi compare nella email come testo CorpoEmail.
Non riesco a capire come poter risolvere la questione.

Come potrei procedere diversamente?

semplicemente concatenando correttamente la stringa

ShellExecute hwnd, vbNullString, _
    "mailto:stefano.villa@romaentratespa.it?Subject=Gestione FattureContabili&Body=" & CorpoEmail, _
    vbNullString, _
    vbNullString, 0

Boolean

[cusolo]

Grazie