Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi di Invio e-mail con Attachment

Ciao a tutti,
Ho un problemuccio che non riesco a risolvere,
ho scritto una procedura che tramite MAPI manda delle e-mail. Quando mando
un messaggio senza allegato tutto funziona, quando tento di allegarci
qualunque cosa mi da l'errore 32002 che risulta come errore non definito del
MAPI.
Io uso questo codice
Function send_mail(dest, cc, subject, body, attach, nfilelog As String) As
Boolean
On Error GoTo fine_mail
Dim comp As String
Dim i As Long
Form1.MAPISession1.LogonUI = True
Form1.MAPISession1.UserName = "Microsoft Outlook"
    'MsgBox Form1.MAPISession1.Username
Form1.MAPISession1.DownLoadMail = False
Form1.MAPISession1.SignOn
    'MsgBox ("Sessione MAPI aperta")
Form1.Mess.SessionID = Form1.MAPISession1.SessionID
    'MsgBox MAPISession1.SessionID
    'MsgBox Mess.MsgCount
Form1.Mess.Compose
    'Inserisce l'indirizzo
    'Form1.Mess.RecipDisplayName = dest
Form1.Mess.MsgSubject = subject
Form1.Mess.MsgNoteText = body
    i = Form1.Mess.RecipCount
    Form1.Mess.RecipIndex = i
    Form1.Mess.RecipDisplayName = dest
        'Form1.Mess.RecipAddress = dest
    Form1.Mess.RecipType = mapToList
If cc <> Empty Then
    Form1.Mess.RecipIndex = i + 1
    Form1.Mess.RecipDisplayName = cc
    Form1.Mess.RecipType = mapCcList
End If
    'Attachment
    Form1.Mess.AttachmentIndex = i
    Form1.Mess.AttachmentPathName = "c:\debug.txt"
    Form1.Mess.AttachmentType = 0
    ' Spedisce
Form1.Mess.Send True
send_mail = True
    ' Chiudo la sessione
Form1.MAPISession1.SignOff
Call add_nom(dest, subject)
Exit Function
fine_mail:
MsgBox Err.Description & " " & Err.Number
Call scrivi_log(nfilelog, Now & " " & Err.Description & " " & Err.Number &
subject)
send_mail = False
Form1.MAPISession1.SignOff
End Function
secondo voi dove sbaglio ?????
Grazie mille, vi prego salvatemi !1!!

  Form1.MAPIMessages1.MsgIndex = -1
  Form1.MAPISession1.SignOn
  Form1.MAPIMessages1.AddressResolveUI = True
  Form1.MAPIMessages1.SessionID = Form1.MAPISession1.SessionID
  Form1.MAPIMessages1.RecipAddress = Trim(Text1.Text)
  Form1.MAPIMessages1.MsgSubject = Trim(Text3.Text)
  Form1.MAPIMessages1.MsgNoteText = Trim(Text4.Text)
  If Nome <> "" Then
     Form1.MAPIMessages1.AttachmentIndex = Indice
     Form1.MAPIMessages1.AttachmentName = Nome
     Form1.MAPIMessages1.AttachmentPathName = Percorso
     Form1.MAPIMessages1.AttachmentPosition = Indice
  End If
  Form1.MAPIMessages1.RecipDisplayName = Trim(Text1.Text)
  Form1.MAPIMessages1.ResolveName
  Form1.MAPIMessages1.Send
  Form1.MAPISession1.SignOff
Questo codice funziona alla perfezione, nota tu le differenze tra il tuo e
il mio. Comunque ritengo che il tuo problema sia il compose prova a
levarlo...
Ciao Luciano.

 wrote in message
8jpulj$bq2$1...@fe2.cs.interbusiness.it...


Forse ho capito il problema. Vai in Outlook, nel menù Strumenti clicca sulla
voce opzioni, nella scheda Generale metti il check a "Imposta OE come
sistema di messaggistica predefinito" vedi che si attiva la casella
sottostante "Imposta OE come client Simple MAPI predefinito", metti il check
anche li. Ti chiederà di riavviare il computer, fallo e poi riprova,
dovrebbe funzionare.
Ciao Luciano.

perchč non fai amicizia con     With ( ... )    ?

 wrote in message
8jq8ss$lu0$2...@pegasus.tiscalinet.it...
