Tag Archives: send mail

How to send one mail

I hope not accuse me of spammer for posting this simple script, works with a simple SMTP authentication method
can be very useful for maintenance scripts or ads:

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "direccionemailorigen"
objEmail.To = "direccionemaildestino"
objEmail.Subject = "Asunto....."
objEmail.Textbody = "Cuerpo del mensaje ...."
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") =  "smtpserver"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "dominio\usuario"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "contraseña"
objEmail.Configuration.Fields.Update
objEmail.Send
Facebooktwittergoogle_plusredditpinterestlinkedinmail

Read More ...

Outlook , select olContact and send a new mail

This simple macro, use the selection object of current window Application.ActiveExplorer.Selection and in case of a selection of contacts olContact ,
creates a blank message olMailItem and fill in the Bcc field: (BCC:) with 3 e-mail contact, also can use the To: field (To:), works in Outlook 2003, 2007, 2010….

Here: link you have more information to create a button and link the macro

Sub ContactsSelected_to_CCO()
Dim olkItm As Object, olkRcp As Outlook.Recipient, olkLst As Outlook.DistListItem
 Select Case TypeName(Application.ActiveWindow)
	Case "Explorer"
		Set olkItm = Application.ActiveExplorer.Selection(1)
End Select
If TypeName(olkItm) <> "Nothing" Then
	Select Case olkItm.Class
		'If	 the source item is a contact or list of contacts
		Case olContact
			'Create a new Mail
			Set olmail1 = Application.CreateItem(olMailItem)
			' variable to add email address
			msgtxt = ""
			With olmail1
				Set myOlSel = Application.ActiveExplorer.Selection
				' for each selected contact adds email
				' if email 2 or email 3 are filled , add to bcc too.
				For x = 1 To myOlSel.Count
					msgtxt = msgtxt & myOlSel.Item(x).Email1Address & ";"
					If Trim(myOlSel.Item(x).Email2Address) <> "" Then
						msgtxt = msgtxt & myOlSel.Item(x).Email2Address & ";"
					End If
					If Trim(myOlSel.Item(x).Email3Address) <> "" Then
						msgtxt = msgtxt & myOlSel.Item(x).Email3Address & ";"
					End If
				Next x
				'put selected emails to BCC
				.BCC = msgtxt
				' display de message
				.Display
			End With
		End Select
	End If
	Set olkItm = Nothing
End Sub
Facebooktwittergoogle_plusredditpinterestlinkedinmail

Read More ...

By continuing to use the site, you agree to the use of cookies. more information

The cookie settings on this website are set to "allow cookies" to give you the best browsing experience possible. If you continue to use this website without changing your cookie settings or you click "Accept" below then you are consenting to this.

Close