Invio Mail.

venerdì 24 febbraio 2012 - 12.14
Tag Elenco Tags  VB.NET  |  .NET 3.5

iif Profilo | Expert

Ciao, ho creato un form che al click di un pulsante invia una mail utilizzando outlook.
Mi sono accorto che la mail la mette nella posta in uscita ma non la invia.
Dove sbaglio?

Vi posto il codice:
ns = ol.GetNamespace("MAPI")
ns.Logon(, , True, True)

'creating a new MailItem object
Dim newMail As Microsoft.Office.Interop.Outlook.MailItem

'gets defaultfolder for my Outlook Outbox
fdMail = ns.GetDefaultFolder(Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderOutbox)

'assign values to the newMail MailItem
newMail = fdMail.Items.Add(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)

If TornaMailAmministrazione() <> "" Then
newMail.To = PostaAmministrazione
newMail.Subject = "Dati zona"
newMail.Attachments.Add(NomeDB)
For x = 0 To Elenco.Count - 1
If Elenco(x) <> 0 Then
newMail.Attachments.Add(CurDir() & "\Foto" & Elenco(x) & ".zip")
End If
Next
newMail.Body = "Salve, in allegato i dati del cantiere."
newMail.SaveSentMessageFolder = fdMail
newMail.Send()
Avverti("Dati inviati!")

luigidibiasi Profilo | Guru

non la invia neanche se entri in outlook è premi f9?
Luigi Di Biasi


http://www.dibiasi.it/
http://netsell.dibiasi.it - ecomm software -
http://blogs.dotnethell.it/luigidibiasi/
http://yadamp.unisa.it/ - YADAMP CMS -

iif Profilo | Expert

no, se apro il messaggio e clicco su inoltra ri-digitando l'indirizzo allora parte.

luigidibiasi Profilo | Guru

ok sembra che tu vada solo a salvae la mail ...

vedi questo codice se ti funziona

Dim oOApp = CreateObject("Outlook.Application")
Dim oOMail = oOApp.CreateItem(0)

With oOMail
'.from = SMTP_CREDENTIAL.UserName & "@" & SMTP_CREDENTIAL.Domain
.to = TO_ADDRESS
.Subject = "inserire oggetto dell'e-mail"
.Body = ""
.Attachments.Add(tocehck, 1, 1)
.Display()
End With
Luigi Di Biasi


http://www.dibiasi.it/
http://netsell.dibiasi.it - ecomm software -
http://blogs.dotnethell.it/luigidibiasi/
http://yadamp.unisa.it/ - YADAMP CMS -
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2017
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5