Hello Ken,
I am still facing the broblem. It says as Transport failed to
connect to the server. I am attaching the excel also.
Regards,
Shay
On Mon, Jan 5, 2009 at 8:15 PM, OfficeVba Trainer <
officevbatrai...@yahoo.com> wrote:
> Hi Shay,
>
> Here is the solution. just change the " smtp.xxxxxxxx.com" which is in
> the CDO_Mail_Small_Text procedure with the appropriate one.
>
> let me know if you have any queries.
>
> regards
> Mugundan
> Office VBA Trainer
> ------------------------------
> Sub send_mail()
>
> Dim lngI As Long
> Dim strSubject As String
> Dim strBody As String
> Dim strFrom As String
> Dim idMaill As Variant
>
> On Error GoTo Err
>
> Application.ScreenUpdating = False
>
> Application.DisplayAlerts = False
>
>
> strSubject = "Test Mail"
> strBody = "Test Mail"
> strFrom = "shahinarafi...@gmail.com"
>
>
> For lngI = 1 To
> Sheets("Sheet1").Range("A1").CurrentRegion.Rows.Count
>
> Call CDO_Mail_Small_Text(strFrom, Cells(lngI, "A").Value,
> strBody, strSubject)
>
> Next
>
> MsgBox "All Mails Sent sucessfully", vbInformation, "Mailing"
>
> Application.ScreenUpdating = True
> Application.DisplayAlerts = True
>
> Err:
> If Err.Number <> 0 Then MsgBox Err.Number & vbCrLf & Err.Description,
> vbCritical, "Mailing"
>
> End Sub
> ------------------------------
> Sub CDO_Mail_Small_Text(strFrom, strTo, strBody, strSubject, Optional
> strCC, Optional strBCC)
>
> Dim iMsg As Object
> Dim iConf As Object
> Dim Flds As Variant
>
> Set iMsg = CreateObject("CDO.Message")
> Set iConf = CreateObject("CDO.Configuration")
>
> iConf.Load -1
> Set Flds = iConf.Fields
> With Flds
> .Item("
> http://schemas.microsoft.com/cdo/configuration/sendusing";) = 2
> .Item("
> http://schemas.microsoft.com/cdo/configuration/smtpserver";) = "
> smtp.xxxxxxxx.com"
> .Item("
> http://schemas.microsoft.com/cdo/configuration/smtpserverport";) = 25
> .Update
> End With
>
> With iMsg
>
> Set .Configuration = iConf
> .To = strTo
> ' .CC = strCC
> ' .BCC = strBCC
> .from = strFrom
> .Subject = strSubject
> .TextBody = strBody
> .Send
> End With
>
> End Sub
> ------------------------------
> ------------------------------
> ------------------------------
> * >
> >
> From:* shay shay <shahinarafi...@gmail.com>
> *To:* excel-macros@googlegroups.com
> *Sent:* Monday, January 5, 2009 7:07:37 PM
> *Subject:* $$Excel-Macros$$ Re: Mail merge activity from excel to
> Outlook!!! URGENT!!!!!
>
> Girish,
>
> I am facing an error as User- defined type not defined for all
> Dims.
>
> Regards,
> Shay
>
>
>
> On Mon, Jan 5, 2009 at 5:42 PM, girishkr...@gmail.com <
> girishkr...@gmail.com> wrote:
>
>>
>> This module can help u out in sending email by outlook,
>> I have considered data is been in "sheet1" and email id in Col"A"
>> subject in "col C"
>> add body of the email as u want in space provided.
>> This will send all the emails through your current profile itself,
>> whichever would be activated in your outlook application.
>>
>>
>>
>> Dim oXlWkBk As Excel.Workbook ' Excel Work Book Object
>>
>> Sub send_mail()
>> Dim i As Long
>> Dim olApp As Outlook.Application
>> Dim olMail As MailItem
>>
>> Set olApp = New Outlook.Application
>> Set olMail = olApp.CreateItem(olMailItem)
>>
>> Application.ScreenUpdating = False
>> Application.DisplayAlerts = False
>> Sheets("Sheet1").Activate
>>
>> For i = 2 To Range("A65535").End(xlUp).Row
>>
>> With olMail
>> .To = Cells(i, "A").Value
>> .Subject = Cells(i, "C").Value
>> .body = "Add your body over here"
>> .Send
>> End With
>> Next i
>> MsgBox "All Mails Sent succfully"
>>
>> Application.ScreenUpdating = True
>> Application.DisplayAlerts = True
>>
>> End Sub
>>
>>
>>
>> On Jan 5, 10:13 am, "shay shay" <shahinarafi...@gmail.com> wrote:
>> > Hello All,
>> >
>> > I have an excel sheet and it contains 800 client names in
>> > column A, I want to mail these 800 clients using outlook, is there any
>> way
>> > where in I can create a macro which automatically mails these people as
>> soon
>> > as I open the excel sheet. its similar to mail merge activity but I am
>> new
>> > to it, can some one guide me, its urgent.
>> > --
>> > Shay
>> >
>> > A Thinker tends to use reason and logic
>> >
>> > A feeler tends to use values and subjective Judgement.
>> >
>> > Be a Thinker in Life.
>>
>
>
>
> --
> Shay
>
> A Thinker tends to use reason and logic
>
> A feeler tends to use values and subjective Judgement.
>
> Be a Thinker in Life.
>
>
>
>
> >
>
>
--
Shay
A Thinker tends to use reason and logic
A feeler tends to use values and subjective Judgement.
Be a Thinker in Life.
--~--~---------~--~----~------------~-------~--~----~
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/excel-macros?hl=en
Visit & Join Our Orkut Community at
http://www.orkut.com/Community.aspx?cmm=22913620
To Learn VBA Macros Please visit http://www.vbamacros.blogspot.com
To see the Daily Excel Tips, Go to:
http://exceldailytip.blogspot.com
If you find any spam message in the group, please send an email to Ayush @
jainayus...@gmail.com
-~----------~----~----~----~------~----~------~--~---
