Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- '
- ' Created by Danilo Priore.
- ' Copyright (c) 2012 Prioregroup.com. All rights reserved.
- '
- '
- ' Permission is hereby granted, free of charge, to any person obtaining a copy
- ' of this software and associated documentation files (the "Software"), to deal
- ' in the Software without restriction, including without limitation the rights
- ' to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
- ' copies of the Software, and to permit persons to whom the Software is
- ' furnished to do so, subject to the following conditions:
- '
- ' The above copyright notice and this permission notice shall be included in
- ' all copies or substantial portions of the Software.
- '
- ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
- ' IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
- ' FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
- ' AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
- ' LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
- ' OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
- ' THE SOFTWARE.
- '
- '
- Dim iMsg, iConf, Flds
- Set iMsg = CreateObject("CDO.Message")
- Set iConf = CreateObject("CDO.Configuration")
- Set Flds = iConf.Fields
- ' send one copy with Google SMTP server (with autentication)
- schema = "http://schemas.microsoft.com/cdo/configuration/"
- Flds.Item(schema & "sendusing") = 2
- Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
- Flds.Item(schema & "smtpserverport") = 465
- Flds.Item(schema & "smtpauthenticate") = 1
- Flds.Item(schema & "sendusername") = "mymail@gmail.com"
- Flds.Item(schema & "sendpassword") = "mypassword"
- Flds.Item(schema & "smtpusessl") = 1
- Flds.Update
- With iMsg
- .To = emailaddr
- .From = "Myname <myemail@mydomain.com>"
- .Subject = "Test send with gmail account"
- .HTMLBody = message
- .Sender = "Myname"
- .Organization = "Myname"
- .ReplyTo = "myemail@mydomain.com"
- Set .Configuration = iConf
- SendEmailGmail = .Send
- End With
- set iMsg = nothing
- set iConf = nothing
- set Flds = nothing
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement