Invio Mail.

venerdì 24 febbraio 2012 - 12.14

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Elenco Tags VB.NET | .NET 3.5

iif Profilo | Expert

713 messaggi | Data Invio: ven 24 feb 2012 - 12:14

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

1.077 messaggi | Data Invio: sab 25 feb 2012 - 12:00

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

713 messaggi | Data Invio: sab 25 feb 2012 - 12:12

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

luigidibiasi Profilo | Guru

1.077 messaggi | Data Invio: sab 25 feb 2012 - 13:00

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 -

Torna su

Stanze Forum

Elenco Threads

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 !