Hello Ken,
After replacing microsoft with my company name then also i am facing an
error which is "the sendusing configuration value is invalid"
Regards,
Shay
On Tue, Jan 6, 2009 at 5:48 PM, shay shay <shahinarafi...@gmail.com> wrote:
> 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.
>
--
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
-~----------~----~----~----~------~----~------~--~---
