HTML Code:
'The procedure for executing the main task:
Sub Test2()
Dim noSession As Object, noDatabase As Object, noDocument As Object
[Code]....
However I now have a requirement to send it from my Team mailbox - which I have access to
I am using a version of the following code that sends a mail using Lotus notes and attaches the Workbook - I am wondering if there is anyway I can make it attach the WORKSHEET instead ?
Code:
'The procedure for executing the main task:
Sub SendWithLotus()
Dim noSession As Object, noDatabase As Object, noDocument As Object
Dim obAttachment As Object, EmbedObject As Object
Dim stSubject As Variant, stAttachment As String
Dim vaRecipient As Variant, vaMsg As Variant
[code]...
Am trying for a code which will send mail to recipients mentioned in column A [to] Coulmn B [CC] & formatted range should be pasted as body of email lets say C:F. Each time formatted header should remain same is it will contain column heading. I have a code which sends mail to specified recipients mentioned in code .
Code:
Sub Send_Formatted_Range_Data() Dim oWorkSpace As Object, oUIDoc As Object Dim rnBody As Range Dim lnRetVal As Long Dim WB6 As Workbook Set WB6 = Application.Workbooks.Open("C:TESTDaily_BKG.XLS") Const stTo As String =
[Code]....
I am trying to write a macro to send mail on every Friday and also on last day of every month. If the last day of the month falls on Saturday or Sunday then the macro should mail on Friday. I have written a separate macro to send a mail. I have also written to check day(ie Monday, Tuesday etc) of today. If today is Friday or month end i can send mail. I dont know how to tell the macro to send mail on friday if the month last date is saturday or sunday.
Sub done()
Dim Dat As Date, x As Integer, y As Date, sorry As String
Dim str As String
sorry = "Today is not friday or month end. So i cannot send mails"
str = WeekdayName(Weekday(Now()))
[Code] ........
Can we send mail through lotus notes in excel.
Request you guide me with this as to how to do it and what the code is.
I need to send a simple mail in body and as an attachment
I received an excel spreadsheet through lotus notes e-mail. I opened it from the e-mail and worked several hours on it, sporadically hitting "save" along the way. However, I do not recall having ever done "Save As" and specifying a location to save it in. I later closed excel. Now I cannot locate the spreadsheet (I have searched). Do you know where it might be located or how I might recover it? When you open spreadsheets directly from e-mails and just hit save (not save As),
View 9 Replies View RelatedThe following will place values found in O19,020,&022 into an e-mail body.
I'm attempting to place a selected range of cells into the body also.
To do this I tried the highlighted section of code below.
I have Excel 2003 and Lotus Notes Version 6 and I need to send out the active workbook from Excel. I have searched through the existing threads, but all the code that I run results in errors -
View 9 Replies View RelatedI wrote this code years ago to Auto Send Emails from Outlook...
Sub Emailfile()
Dim OutlookApp As Object
Const olMailItem = 0
Set OutlookApp = CreateObject("Outlook.Application")
Dim EmailContent As String
With OutlookApp.CreateItem(olMailItem)
EmailContent = Range("A1").Value
.To = "Test"
.Subject = "LSG Data File"
.Body = EmailContent
.Attachments.Add ("P:MI TeamICCE LEADS EXTRACTSLSGLSG Data File")
End With
End Sub
I can't figure out how to get it working for Lotus notes... So 2 things I guess really... Firstly is it possible? Second: If it is, how can I get it to send say 16 emails each with a specific attachment but the same commentary?
1. I dont want this to auto send. I want it to compose the mail and leave it ready to hit the send button in lotus notes. How do I do that?
2. Would like to include multiple emails. If I put two emails (separated by comma or semicolon into cell C19, Lotus notes sends as one address and it bounces. (This is not terribly important, but would be a nice feature)
3. Would like to insert the signature line that's already configured on lotus notes. Since this auto sends the email, the signature is not added. Any idea how to do this?
4. Now this would be really nice, tell the macro which database to use. The one I want to use is not "my" email, but a shared email. It lives on server "Notes1/recovery" , in folder "mail" with a database named "company.nsf". Is there a way to do this?
Here is my code that works, but needs the above features.
Sub SendNotesMail()
Dim Maildb As Object
Dim UserName As String
Dim MailDbName As String
Dim MailDoc As Object
Dim Session As Object
Dim Recipient As String
Dim Subject1 As String
Dim ccRecipient As String
putting a macro button on an individual worksheet so the user can click a big easy button and a new email will pop up in Lotus notes with the worksheet attached for them to input the address and then send the worksheet..
I prefer to:
Send individual worksheets only
The ability to input the email address is the new composition email in LOTUS Notes
The following line of code is part of the great work that this forum did in creating a macro to send an automated email through Lotus Notes.
I have a small tweak that requires the Body of the message to exist on sheet other than the one where the macro is launched.
The originial code had:
Body1 = Replace(Join(Application.Transpose(Range([by9], [by18].End(3))), "@") & "@@Thank you,", "@", vbCrLf)
I tried:
Body1 = Replace(Join(Application.Transpose(Sheets("LookUp Sheet").Range([by9], [by18].End(3))), "@") & "@@Thank you,", "@", vbCrLf)
But the body of the email is not being copied.
Am I putting the calling the Sheets reference incorrectly?
The routine works perfectly if the body data comes from the sheet where the macro is launched?
I have a spread sheet with all vehicle drivers license expiration dates. there are about 300 drivers to track.
What I am looking for is a way to have an E-mail sent to me 30 days prior to the expiration date with that persons name and date of expiration so I can forward the e-mail to his supervisor. And I need this to happen without having to open the file every day. ("Excel" itself will open daily, if that helps. )
Note: I am using me as the first person, actually this will be for our fleet manager.
I have searched Google and this board this whole week and all I can find is links to threads that are dated 2000 thru 2003 that doesn't come close to what I'm looking for.
I'm not sure if any of those links will get me started because they reference Excel 97, 98, & 2000. I am useing XP and we are set up with Outlook.
I guess what I am asking for is, does anybobdy have a link or some what of a code that will work with XP and Outlook, so maybe I can figure out what to do with this?
This is a snippet of what I have as a data base if it will help: ...
I have written a code to send e-mail with attachments. However, the mail doesn't include my standard signature.
For I = 2 To 8
Set MItem = OutApp.CreateItem(0)
With MItem
.to = wb.Sheets("Mail").Range("C" & I).Value
.Cc = wb.Sheets("Mail").Range("D" & I).Value
.Bcc = wb.Sheets("Mail").Range("E" & I).Value
.Subject = wb.Sheets("Mail").Range("F" & I).Value
.body = wb.Sheets("Mail").Range("G" & I).Value
For Each fil In fldpdf.Files
LenFilName = Len(wb.Sheets("Mail").Range("B" & I).Value)
If wb.Sheets("Mail").Range("B" & I).Value = Left(fil.Name, LenFilName) Then
MItem.Attachments.Add fldpdf & "" & fil.Name
Exit For
End If
Next fil
.display
End With
Next I
Step 1 - I have a Read Only excel template which I would fill with the required data.
Step 2 - The data in cell C8 (Text) should be taken as file name and should be Saved as file name.
Step 3 - The above saved as file should be attached to the mail to outlook. I would give the email address manually.
I am using the following macro:
Sub SendActiveWorkbook()
ActiveSheet.SendMail _
Recipients:="Joeb@something.com", _
Subject:="Try Me " & Format( Date, "dd/mmm/yy")
End Sub
Is there another method I can use that will display the Email instead of just sending it?
Is there a method called DisplayMail?
I'm trying to modify.
The code is this:
Dim finder As Object
Private Sub ComboBox1_Change()
Set finder = Sheets("Sheet1").Columns("A:A").Find(what:=ComboBox1.Text, lookat:=xlWhole)
Main_recipients.Value = finder.Offset(0, 1)
End Sub
Private Sub Send_email_Click()
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
Now, everything works fine until it gets to this line:-
MailDoc.SEND 0, Recipients
when I get an error message that states "Unable to send mail, no match found in Name & Address Book(s)"
In Lotus, I created a list of recipients (including any additions after the name) and copied that into the cell that feeds the text-box "Main_recipients".
The odd thing is, if I just email myself without any additions after my name it's fine. It's when I try to e-mail multiple people (with and without additions) that it falls over.
I need a macro that will send a separate mail to each person in range (Data sheet), with body from Mail sheet of attached excel workbook.
For attached example it should send 5 mail, that have to be like : test mail.xlsx‎
i use Excel 2007.............
The SendMail Method took it from OzGrid web does not work with me . It gives me an error msg : Method send mail of object workbook failed...........
Do i have to refrence 2 particular library. i use OP windos vista (windows mail)
Sub SendActiveWorkbook()
On Error Rsume Next
ActiveWorkbook.SendMail _
Recipients:="dump@ozgrid.com", _
Subject:="Try Me " & Format( Date, "dd/mmm/yy")
On Error Goto 0
End Sub
In a generated workbook I have 2 e-mail adresses in seperate cells that I'd like the users to be able to easily send the workbook to.
One as the recipient and the other as cc.
So is it possible to either use a link or userform that takes both adresses and automatically attaches this workbook?
I have an excel workbook which is a result of a sports survey I conducted. It basically shows who likes which sport, what level they're at, preferred time of play, etc, and their email address.
A colleague has created a type of form (using formulas, not VBA) wherein you select your criteria (Sport, Gender, Level etc) and it displays the matching names.
What I'd like is to be able to select, via a check box or similar, 1 or more names from the list of results for that sport, click a button, and their addresses automatically open in a new Outlook mail window for the person to send a mail to those people.
is it possible for Excel to generate a pop-up or auto send an e-mail when a value is true? I'm wanting to be notified on a lengthy spreadsheet either by e-mail or by pop-up when an item is within 90 days of its due date.
Something like:
IF(H2-90>=TODAY,SEND E-mail/generate pop-up code,"")
I need to send a mail on a daily basis from outlook at 6.00 pm.
Containing a shared link to particular mail I'd.
I have CDO set up on in an excel workbook contained on our network. We have been using the following code for well over a year. It works flawlessly on 12 of our 13 computers. I can send mail through Excel using the following code on my computer. But not on a particular computer. The user at that particular computer can't send mail through the CDO code from her computer but can from other computers.
This problem is definitely isolated to a computer. I had tech support un-install office, use a cleaning tool, then re-install office. The problem persists. Is there a particular setting on this computer that needs to be set that I am unaware of?
Here is the code...
The file which I want to send as a CSV needs to be named in a certain way. It would be the contents of cell A2, then the date it was sent and the time. Here is my current code. How can I get it to pick up data from a cell and then add it to the list. Also, the list has to be one string, so for example, 23459 Cell A2, 1310 Date and 192859 would be time. So the renamed file would be named 234591310192859. Here is my code which may make what I'm saying a bit more into a bit more sense. Currently the name which is outputted is 'Name of Spreadsheet.xls 13-Jan-10 19-31-59'.
View 6 Replies View RelatedI have a command button in my excel sheet, if I or my team person clicks on it, the same file has to go to my manager's mail ID from my or my team person's (who clicks) outlook.
I send out a mail template everyweek to all the dept. employees using outlook. I attach a excel sheet to the mail so the employees can type in their hours and then sent it back. Then i go in manually each sheet and copy the info in THE timesheet excel sheet and sent it to the HR. Any easy way automate this process? What id like is to send a mai lcontaining the excel sheet, the emlpoyees fill it and the data tranfers to a excel sheet...
View 2 Replies View RelatedI need to build vb that will move threw a folder earch files this source folder will be s:dc eports there will be multiple types of files. If the file ends with .ERR and the file size is > 0.1 KB THEN take file and open it then find the user id this will be 6 didgets .. this then needs to be located(if u look at attached spreadsheet “CTR208088.ERR” and go too column “AB” you will see “FA2 INPUT BY:311752 CODE) and then take and match THIS CODE (311752) to a workbook called “cashfrontieradmin11” there will be a “user name” column ‘A” in a “input names” tab and next to it column “B” “ full name” it will then register name and attach an email to user saying they have error “processing idx file into hiport”.
It will then attach error file to email and send to appropriate user(that is written in error log ) Example file is here ..the only issue I guess is being able to read the character placing(user id) in the message file..to pick this up and map back to admin file I will attach both files
I am using an excel where I want to send mail to my team members for their trainings pendings,
Few trainings are once in a year and few traings are monthly.
I currently have a list in one column which is in the following format: "First Name, Last Name <user@domain.com>". Is it possible to filter out just the e-mail address?
View 2 Replies View Related