Ciao a tutti ho creato un file excel con un userform in cui puoi digitare il testo del messaggio e il tasto invio, quando clicco invio dovrebbe prendere gli indirizzi mail di una deteriminata colonna.
il tutto senza utilizzare outlook,
dovrei utilizzarlo con un indirizzo mittente gmail e anche con un indirizzo mittente tiscali, non so se è utile questa indicazione.
allego esempio
Grazie a tutti
Ciao.
E quindi?
Ho provato a compilare con dei settaggi trovati nei forum ma non mi invia la mail, per cui ho azzerato il codice, vorrei capire qual è il codice corretto per gestire l'invio mail senza outlook e che sia possibile gestire il testo messaggio, cosa che non sono riuscito a trovare nei forum
grazie
Guarda qui:Originariamente inviata da pericoli
http://www.rondebruin.nl/win/s1/cdo.htm
Perfetto, ci sono quasi, ma data l'ignoranza in merito non riesco a inviare agli indirizzi indicati in una specifica colonna, ho compilato il codice così:
Private Sub CDO_Mail_Small_Text_Click()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "miosmtp"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With
strbody = TxtMSG.Text
With iMsg
Set .Configuration = iConf
.To = Sheets("Foglio1").Range("A1,A6850").Value
.CC = ""
.BCC = ""
.From = """Polisportiva Senigallia ASD"" <mia@mail.it>"
.Subject = TxtObject.Text
.TextBody = strbody
.Send
End With
End Sub
Così invia solo alla prima mail dell'elenco...
grazie
Scusate a tutti sono riuscito a risolvere, grazie mille renygade per il link al sito, è utilissimo
Prego.
Permessi di invio
Rispondi quotando