VBA Problem

[Piotr]

Hi, I have code that sends mail with some files, but there is
something wrong becouse always next reciepent recive dedicated
attachement + all atachements send already to previous reciepents ?
What should I do to make my user form active on the excell start.

Private Sub CommandButton1_Click()

Dim iMsg As Object
Dim iConf As Object
Dim WB1 As Workbook
Dim WB2 As Workbook
Dim R_Cenos As String

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")
= "mail.com.pl"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
.Update
End With



With iMsg
Set .Configuration = iConf
.To = "(e-mail address removed)"
.CC = "(e-mail address removed)"
.BCC = ""
.From = """(e-mail address removed)"
.Subject = "Today" & Format(Now, "dd-mm-yy")
.TextBody = "Today"
.AddAttachment "C:/Test.txt"
' You can add any file you want with this line .AddAttachment
"C:/Test.txt"
.Send
End With


With iMsg
Set .Configuration = iConf
.To = "(e-mail address removed)"
.CC = "(e-mail address removed)"
.BCC = ""
.From = """(e-mail address removed)"
.Subject = "Today" & Format(Now, "dd-mm-yy")
.TextBody = "Today"
.AddAttachment "C:/Test.txt"
' You can add any file you want with this line .AddAttachment
"C:/Test.txt"
.Send
End With



Set iMsg = Nothing
Set iConf = Nothing
Set WB1 = Nothing
Set WB2 = Nothing
Application.ScreenUpdating = True


End Sub

 

[Ron de Bruin]

Hi Piotr

More info about CDO mailing you can find here
http://www.rondebruin.nl/cdo.htm

Before you start with the second iMsg use this two lines

Set iMsg = Nothing
Set iMsg = CreateObject("CDO.Message")

Use the workbook open event
http://www.cpearson.com/excel/events.htm

 

[Piotr]

Thank You Ron I have tried
Set iMsg = Nothing
before but wasnt enough
Now It works great, it has saved me 30 min today