Public olApp As Object
Public oNewMail As Object
Public FilePath As String

Public isthereFileAttach As Boolean
Public bd As String
Public sb As String






Public Sub ONE_ONE(ByVal recipient As String)

Set olApp = CreateObject("Outlook.Application")
Set oNewMail = olApp.CreateItem(olMailItem)

With oNewMail
.Display
.Recipients.Add recipient
sb = Sheet1.Cells(13, 3)
.Subject = sb

bd = Sheet29.Cells(1, 3)
If bd = "" Then
' bd = Sheet1.Shapes("TextBox 1").Select
bd = Sheet29.Cells(1, 3)
End If

.Body = bd
If isthereFileAttach Then
.Attachments.Add FilePath
End If

.Send
End With
Set oNewMail = Nothing
Set oApp = Nothing

End Sub

Public Sub send_oneone()

UserFormTITLE.Show

isthereFileAttach = True

    For r = 2 To 100 Step 1


       If Len(Trim(Sheet29.Cells(r, 2))) > 3 Then


          If Mid(Sheet1.Cells(15, 3), 3, 1) = "\" Then
            FilePath = Sheet29.Cells(15, 3)
          Else
          isthereFileAttach = False
          End If



          Call ONE_ONE(Trim(Sheet29.Cells(r, 2)))

       End If


    Next r
End Sub


Sub send_to_all_oneone()
Call Sheet29.send_oneone
End Sub



On Tue, Apr 5, 2011 at 5:09 AM, santosh subudhi <
santoshkumar.subu...@gmail.com> wrote:

> Hi,
>
>
> http://www.rondebruin.nl/sendmail.htm
>
> http://msdn.microsoft.com/en-us/library/aa203718(office.11).aspx
>
>
> http://msdn.microsoft.com/en-us/library/aa203718(office.11).aspx#odc_thesendmail20utility
>
> Try the other links with other options available in the sites
>
> Regards
> Santosh
>
>
> On Wed, Mar 30, 2011 at 12:31 PM, L.K. Modi <ca.mod...@gmail.com> wrote:
>
>>
>>
>> this add in is not working
>>
>>
>>
>>
>>
>> On Wed, Mar 30, 2011 at 10:42 AM, ashish koul <koul.ash...@gmail.com>wrote:
>>
>>> try this addin see if it helps
>>>
>>> http://www.rondebruin.nl/mail/add-in.htm
>>>
>>>
>>>
>>>
>>> On Tue, Mar 29, 2011 at 8:02 PM, shariq khan <shariqcoo...@gmail.com>wrote:
>>>
>>>> Can any one help me?
>>>>
>>>>
>>>>
>>>> I looking for code to send an email from excel to the number of users,
>>>> few in TO and some are on CC.
>>>>
>>>>
>>>>
>>>> I also need to add the below table in the body of the mail looks like
>>>> the below example
>>>>
>>>>
>>>>
>>>> _________________________________________________________________________
>>>> Hi,
>>>>
>>>>
>>>>
>>>> Please find the attached score if the candidates
>>>>
>>>>
>>>>
>>>> *Name*
>>>>
>>>> *Marks1*
>>>>
>>>> *Marks2*
>>>>
>>>> *sum*
>>>>
>>>> *SK*
>>>>
>>>> *75*
>>>>
>>>> *75*
>>>>
>>>> *150*
>>>>
>>>> *RL*
>>>>
>>>> *25*
>>>>
>>>> *25*
>>>>
>>>> *50*
>>>>
>>>> *NM*
>>>>
>>>> *85*
>>>>
>>>> *85*
>>>>
>>>> *170*
>>>>
>>>> *HL*
>>>>
>>>> *25*
>>>>
>>>> *25*
>>>>
>>>> *50*
>>>>
>>>>
>>>>
>>>> Please let me know if you have any concerns
>>>>
>>>>
>>>>
>>>> Thanks
>>>>
>>>> Shariq
>>>>
>>>>
>>>> _________________________________________________________________________
>>>>
>>>>
>>>>
>>>> And we have dynamic marks after the logic of the code and filter
>>>> criteria. also i need to send an excel sheet as an attachment(saved on some
>>>> other location)
>>>>
>>>>
>>>>
>>>> Please help me.
>>>>
>>>>
>>>>
>>>> Thanks,
>>>>
>>>> --
>>>>
>>>> ----------------------------------------------------------------------------------
>>>> Some important links for excel users:
>>>> 1. Follow us on TWITTER for tips tricks and links :
>>>> http://twitter.com/exceldailytip
>>>> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>>>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>>>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>>>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>>>
>>>> To post to this group, send email to excel-macros@googlegroups.com
>>>>
>>>> <><><><><><><><><><><><><><><><><><><><><><>
>>>> Like our page on facebook , Just follow below link
>>>> http://www.facebook.com/discussexcel
>>>>
>>>
>>>
>>>
>>> --
>>> *Regards*
>>> * *
>>> *Ashish Koul*
>>> *akoul*.*blogspot*.com <http://akoul.blogspot.com/>
>>> *akoul*.wordpress.com <http://akoul.wordpress.com/>
>>> My Linkedin Profile <http://in.linkedin.com/pub/ashish-koul/10/400/830>
>>>
>>>
>>> P Before printing, think about the environment.
>>>
>>>
>>> --
>>>
>>> ----------------------------------------------------------------------------------
>>> Some important links for excel users:
>>> 1. Follow us on TWITTER for tips tricks and links :
>>> http://twitter.com/exceldailytip
>>> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>>
>>> To post to this group, send email to excel-macros@googlegroups.com
>>>
>>> <><><><><><><><><><><><><><><><><><><><><><>
>>> Like our page on facebook , Just follow below link
>>> http://www.facebook.com/discussexcel
>>>
>>
>> --
>>
>> ----------------------------------------------------------------------------------
>> Some important links for excel users:
>> 1. Follow us on TWITTER for tips tricks and links :
>> http://twitter.com/exceldailytip
>> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>
>> To post to this group, send email to excel-macros@googlegroups.com
>>
>> <><><><><><><><><><><><><><><><><><><><><><>
>> Like our page on facebook , Just follow below link
>> http://www.facebook.com/discussexcel
>>
>
>
>
> --
> Regards
> Santosh
> santoshkumar.subu...@gmail.com
>
> --
>
> ----------------------------------------------------------------------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>



-- 
Your Sincerely
Sanjoy Nath
Engineer
EOL Gurgaon
EOL/M/NZ/Engg.Dept.(Haryana Division)



 We prepare custom tools (Softwares) to prepare Autocad Drawings
 Of the Engineering Components.Some Of Our Clients Provide the
 Design Calculation Steps And Sample Drawings (Templates for Eg the
 Nuts , Bolts , Screws , Stair Cases , Patterns , Geometries , LandScapes,
 Layouting, General Engineering Components , Mechanical Engineering
Components,
 Civil/Structural Engineering Components,Architectural Components) to follow
 and to meet their standards and specifications.The Tools we develop are
 entirely customised and specific for clients  own requirements and
 they are not re distributed to others.

  Let me be precise regarding our job profile and what we can do for you
 Suppose you have to develop any design component repeatedly for different
projects
Only Some of its parameters are changing and you need the drawing for that
component.
you cannot prepare the block for that.Since even in the custom Block in
Autocad you
cannot controll all the parameters automatically and very few users in
Autocad can follow
the technicalities to handle the customisable blocks in Autocad.
On the Other hand , customisable blocks cannot decide the dimensions   by
themselves nor can
compute the design calculations.But And it takes a long time to develop the
drawings.
Moreover if there is any revision in the General Arrangement drawings or
Facilities,
the entire things need to change and you have to start from the scratch
again and
draftsman forget to change some of the dimensions or the BOQ values in the
tables
attached to the drawings.These things are ridiculous to your clients.
We can understand these issues since we are in the design/Detailing and
drafting industry
for last 10 years and have worked for more than 6 companies(Directly as
employee or in parttime)
 in 3 domains
(Piping,Architecture and Structural)
And now we have attained the expertise to develop the dxf files from
Excel/EXE Applications.
We can develop and provide the tools (EXE tools or Excel Files as you need
and as much you ask for)
to develop these drawings automatically.

   Suppose you want to develop the drawings of doors/Panels with some given
features many/some of
which will change every time from task to task or from revision to revision
or from project to project.
You have to revise the drawings and your draftsman/detailer will take 30
minutes to 1 hour to revise each of
these several components.We can save this valuable time for you through the
tools.
Moreover many a time it happens that you have to prepare the scaled drawings
from the data in STAAD pro
and you have to type the utilisation ratios and reactions beside the members
including the sizes also.
Have you ever calculated how much time you spend on that and how much
errorprone are these ??????
We can help you in these matters also.
We can extract the data in tables/Dimensions in the Autocad Drawing to Excel
(With Automations)such that you can prepare the
BOQs easily.Suppose you have a drawing and the dimensions of some feature in
a certain layer.We can provide
tools to you which will read the data from your dimensions in specific layer
and will type them
in the excel format.And can prepare the drawings of some other feature from
the extracted dimensions.

We can develop the same kind of tools for Word ,STAAD Pro , Tekla , PDF ,
Excel Also which are applicable for
MIS purposes and the custom checking tools for word processing
industries/Quality control departments.
We have given you the examples with CAD and Excel Only.But we have expertise
in STAAD Pro ,TEKLA
PDF technologies also.We work in the digitisation works also.

-- 
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 
To post to this group, send email to excel-macros@googlegroups.com

<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel

Reply via email to