mail sent in macro

[Anonymous]

i created a macro :

	SET objMessage = CreateObject("CDO.Message")
	SET msgConf = CreateObject("CDO.Configuration")
	msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
	msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")= "localhost"
	msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
	msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
	msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = sender
	msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = password
	msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
	msgConf.Fields.Update
	objMessage.Subject = subject
	objMessage.From = sender
	objMessage.To = recipient
	objMessage.Bcc = sender
	objMessage.HTMLBody = body
	objMessage.AddAttachment attachement
	SET objMessage.Configuration = msgConf
	objMessage.Send

how can i do that the mail figure in the sent folder of the mailbox of sender.

if the sender is : aaa@gmail.com and the recipient is : bbb@gmail.com, how can i do to view the mail in the mailbox of aaa@gmail.com in the sent folder?

thanks