nice thanks boss
On Mon, Nov 12, 2012 at 6:48 PM, <v...@vabs.in> wrote: > [image: Boxbe] <https://www.boxbe.com/overview> This message is eligible > for Automatic Cleanup! (v...@vabs.in) Add cleanup > rule<https://www.boxbe.com/popup?url=https%3A%2F%2Fwww.boxbe.com%2Fcleanup%3Ftoken%3DXTHjhO3GGmCPGLVLnui57nBCuwpdcZZqoQjWuCkdjiX4SSb9cbvbqj63PtQm3duV8av1wWJF13fK5G3DzMoGwuU18pfd7lJ6VdqVMWZgFtqHBduxPWI11IXpmBbg9Rw%252B%26key%3DI60aMOhe1ZaN8qJf3K4X%252FL3snwSitgRlvf8u3EJI8PE%253D&tc=12887758646_1570346026>| > More > info<http://blog.boxbe.com/general/boxbe-automatic-cleanup?tc=12887758646_1570346026> > > ** > Hie, > > If you wanna send email directly then correct dis line: > .Display 'Or use Send > > It should be > .send > > You have to use .display when you wanna see email before display. > > And you can use this with my prior tip. > > Pl revert if you need further help. > > Cheerz... > Sent on my BlackBerry® from Vodafone > ------------------------------ > *From: * Hilary Lomotey <resp...@gmail.com> > *Sender: * excel-macros@googlegroups.com > *Date: *Mon, 12 Nov 2012 17:47:30 +0000 > *To: *<excel-macros@googlegroups.com> > *ReplyTo: * excel-macros@googlegroups.com > *Subject: *Re: $$Excel-Macros$$ Modify VBA Code to Send Email Directly > without Displaying > > Thanks Boss > > But its not what i want, let me explain better. > if you open the attached file i sent together with the email earlier, when > you activate the send button, outlook will open for the email to get ready > to send, when the mail with attachments pops up, you would have to clicj > send and the email will get sent. Ordinarily, this is ok, however if i need > to send the same email to 100+ people, it means that 100+ emails will open, > i would then have to click "send" a 100+ times to send all the emails, so > what i am seeking help is to modify the code such that, when the send email > button is clicked, it will send the email directly without each mail poping > out. thanks > > On Mon, Nov 12, 2012 at 5:39 PM, <v...@vabs.in> wrote: > >> ** >> Hie >> >> For this you need to disable security level.. >> >> >> http://office.microsoft.com/en-in/outlook-help/i-get-warnings-about-a-program-accessing-e-mail-address-information-or-sending-e-mail-on-my-behalf-HA001229943.aspx >> >> Refer link for details. >> >> Thanks//Vabs >> Sent on my BlackBerry® from Vodafone >> ------------------------------ >> *From: * Hilary Lomotey <resp...@gmail.com> >> *Sender: * excel-macros@googlegroups.com >> *Date: *Mon, 12 Nov 2012 17:19:33 +0000 >> *To: *excel-macros<EXCEL-MACROS@googlegroups.com> >> *ReplyTo: * excel-macros@googlegroups.com >> *Subject: *$$Excel-Macros$$ Modify VBA Code to Send Email Directly >> without Displaying >> >> >> Hello Expects >> >> >> I need assistance to modify the code below to send email straight away >> without the mail poping out before its sent. The reason is if i have 100+ >> mails to send, it means i need to click send a 100+ times, and that is not >> efficient. kindly modify the code to send the email without it being >> displayed. thanks >> >> >> >> >> >> >> Sub Send_Files() >> 'Working in 2000-2010 >> Dim OutApp As Object >> Dim OutMail As Object >> Dim sh As Worksheet >> Dim cell As Range, FileCell As Range, rng As Range >> Dim LValue As String >> >> LValue = Format(Date, "dd-mmm-yy", vbUseSystemDayOfWeek) >> >> With Application >> .EnableEvents = False >> .ScreenUpdating = False >> End With >> >> Set sh = Sheets("Send Personal Email") >> >> Set OutApp = CreateObject("Outlook.Application") >> >> For Each cell In >> sh.Columns("B").Cells.SpecialCells(xlCellTypeConstants) >> >> 'Enter the file names in the C:Z column in each row >> Set rng = sh.Cells(cell.Row, 1).Range("C1:Z1") >> >> If cell.Value Like "?*@?*.?*" And _ >> Application.WorksheetFunction.CountA(rng) > 0 Then >> Set OutMail = OutApp.CreateItem(0) >> >> With OutMail >> .to = cell.Value >> .Subject = "Testfile as at " & LValue >> .Body = "Hi " & cell.Offset(0, -1).Value & vbNewLine & >> "Please find attached our Weekly report for the week ending " & LValue & >> "." & _ >> " Please do not hesitate to contact me should if you have >> any questions or comments" >> >> For Each FileCell In rng.SpecialCells(xlCellTypeConstants) >> If Trim(FileCell) <> "" Then >> If Dir(FileCell.Value) <> "" Then >> .Attachments.Add FileCell.Value >> End If >> End If >> Next FileCell >> >> .Display 'Or use Send >> End With >> >> Set OutMail = Nothing >> End If >> Next cell >> >> Set OutApp = Nothing >> With Application >> .EnableEvents = True >> .ScreenUpdating = True >> End With >> End Sub >> >> -- >> Join official facebook page of this forum @ >> https://www.facebook.com/discussexcel >> >> FORUM RULES (1120+ members already BANNED for violation) >> >> 1) Use concise, accurate thread titles. Poor thread titles, like Please >> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice >> will not get quick attention or may not be answered. >> >> 2) Don't post a question in the thread of another member. >> >> 3) Don't post questions regarding breaking or bypassing any security >> measure. >> >> 4) Acknowledge the responses you receive, good or bad. >> >> 5) Cross-promotion of, or links to, forums competitive to this forum in >> signatures are prohibited. >> >> 6) Jobs posting is not allowed. >> >> 7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed. >> >> NOTE : Don't ever post personal or confidential data in a workbook. Forum >> owners and members are not responsible for any loss. >> --- >> You received this message because you are subscribed to the Google Groups >> "MS EXCEL AND VBA MACROS" group. >> To post to this group, send email to excel-macros@googlegroups.com. >> To unsubscribe from this group, send email to >> excel-macros+unsubscr...@googlegroups.com. >> Visit this group at http://groups.google.com/group/excel-macros?hl=en. >> >> >> >> -- >> Join official facebook page of this forum @ >> https://www.facebook.com/discussexcel >> >> FORUM RULES (1120+ members already BANNED for violation) >> >> 1) Use concise, accurate thread titles. Poor thread titles, like Please >> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice >> will not get quick attention or may not be answered. >> >> 2) Don't post a question in the thread of another member. >> >> 3) Don't post questions regarding breaking or bypassing any security >> measure. >> >> 4) Acknowledge the responses you receive, good or bad. >> >> 5) Cross-promotion of, or links to, forums competitive to this forum in >> signatures are prohibited. >> >> 6) Jobs posting is not allowed. >> >> 7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed. >> >> NOTE : Don't ever post personal or confidential data in a workbook. Forum >> owners and members are not responsible for any loss. >> --- >> You received this message because you are subscribed to the Google Groups >> "MS EXCEL AND VBA MACROS" group. >> To post to this group, send email to excel-macros@googlegroups.com. >> To unsubscribe from this group, send email to >> excel-macros+unsubscr...@googlegroups.com. >> Visit this group at http://groups.google.com/group/excel-macros?hl=en. >> >> >> > > -- > Join official facebook page of this forum @ > https://www.facebook.com/discussexcel > > FORUM RULES (1120+ members already BANNED for violation) > > 1) Use concise, accurate thread titles. Poor thread titles, like Please > Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice > will not get quick attention or may not be answered. > > 2) Don't post a question in the thread of another member. > > 3) Don't post questions regarding breaking or bypassing any security > measure. > > 4) Acknowledge the responses you receive, good or bad. > > 5) Cross-promotion of, or links to, forums competitive to this forum in > signatures are prohibited. > > 6) Jobs posting is not allowed. > > 7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed. > > NOTE : Don't ever post personal or confidential data in a workbook. Forum > owners and members are not responsible for any loss. > --- > You received this message because you are subscribed to the Google Groups > "MS EXCEL AND VBA MACROS" group. > To post to this group, send email to excel-macros@googlegroups.com. > To unsubscribe from this group, send email to > excel-macros+unsubscr...@googlegroups.com. > Visit this group at http://groups.google.com/group/excel-macros?hl=en. > > > > -- > Join official facebook page of this forum @ > https://www.facebook.com/discussexcel > > FORUM RULES (1120+ members already BANNED for violation) > > 1) Use concise, accurate thread titles. Poor thread titles, like Please > Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice > will not get quick attention or may not be answered. > > 2) Don't post a question in the thread of another member. > > 3) Don't post questions regarding breaking or bypassing any security > measure. > > 4) Acknowledge the responses you receive, good or bad. > > 5) Cross-promotion of, or links to, forums competitive to this forum in > signatures are prohibited. > > 6) Jobs posting is not allowed. > > 7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed. > > NOTE : Don't ever post personal or confidential data in a workbook. Forum > owners and members are not responsible for any loss. > --- > You received this message because you are subscribed to the Google Groups > "MS EXCEL AND VBA MACROS" group. > To post to this group, send email to excel-macros@googlegroups.com. > To unsubscribe from this group, send email to > excel-macros+unsubscr...@googlegroups.com. > Visit this group at http://groups.google.com/group/excel-macros?hl=en. > > > > -- Join official facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES (1120+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. 6) Jobs posting is not allowed. 7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To post to this group, send email to excel-macros@googlegroups.com. To unsubscribe from this group, send email to excel-macros+unsubscr...@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros?hl=en.
