Ինչպե՞ս ուղարկել աշխատաթերթ միայն Excel- ի Outlook- ի միջոցով:

Եթե ցանկանում եք Excel- ում աշխատանքային գրքից էլեկտրոնային փոստով ուղարկել մեկ աշխատանքային թերթ Outlook- ի միջոցով, կարող եք ուղարկել աշխատանքային թերթը որպես հավելված, որպես մարմնի պարունակություն կամ որպես PDF ֆայլ: Բայց Excel- ում այս խնդրի լուծման համար կա՞ն ավելի արագ եղանակներ:

Ուղարկեք էլեկտրոնային փոստի ստացողի հրամանի միջոցով Excel- ից ուղարկել մեկ աշխատանքային թերթիկ որպես մարմին

Excel- ից VBA կոդով ուղարկեք մեկ աշխատանքային թերթ որպես հավելված

Excel- ից VBA կոդով ուղարկեք մեկ աշխատանքային թերթ որպես PDF ֆայլ

Ուղարկեք էլեկտրոնային փոստի ստացողի հրամանի միջոցով Excel- ից ուղարկել մեկ աշխատանքային թերթիկ որպես մարմին

Excel- ն աջակցում է մեզ ակտիվ աշխատանքային թերթը էլեկտրոնային փոստով ուղարկել որպես մարմնի բովանդակություն ՝ օգտագործելով Ուղարկել փոստին ստացողի հրամանը: Կարող եք անել հետևյալ կերպ.

Եթե օգտագործում եք Excel 2007, 2010 կամ 2013 թվականները, ապա անհրաժեշտ է ավելացնել դրանք Ուղարկել փոստի ստացողին հրաման Արագ մուտք Գործիքադարակը առաջին.

1, Կտտացրեք պատկերակի վրա Անհատականացրեք Արագ մուտքի Գործիքադարակըեւ ընտրեք Ավելի շատ հրամաններ, տես նկարի նկարը.

doc-email-sheet1

2. Եվ է Excel ընտրանքներ երկխոսության վանդակում, ընտրեք Հրամաններ ոչ ժապավենով է Ընտրեք հրամաններ բացվող ցուցակը, ապա ընտրեք Ուղարկել փոստի ստացողին տարբերակը և սեղմեք Ավելացնել >> կոճակը ՝ այս հրամանն ավելացնելու համար, վերջապես կտտացրեք OK այս պարամետրը պահպանելու համար: Տեսեք,

doc-email-sheet2

3. The Ուղարկել փոստի ստացողին հրամանը տեղադրվել է Արագ մուտք Գործիքադարակը, տես նկարի նկարը.

doc-email-sheet3

4, Դրանից հետո կտտացրեք սա Ուղարկել փոստի ստացողին պատկերակի կոճակը, և արագ տուփը դուրս է գալիս E-mail արագ տուփ, ստուգեք Ուղարկեք ընթացիկ թերթը որպես հաղորդագրության մարմինեւ սեղմեք OK, Տեսեք,

doc-email-sheet4

5, Եվ էլփոստի խմբագրման վանդակը ցուցադրվում է աշխատանքային թերթի տվյալների վերևում, դուք կարող եք մուտքագրել ձեր ստացողներին, թեման և ներածումը համապատասխան տեքստի վանդակում: Տեսեք,

doc-email-sheet5

6. Այնուհետեւ կտտացրեք Ուղարկիր այս Շիինt ուղարկել այս ակտիվ աշխատանքային թերթը որպես հաղորդագրության մարմին ձեր կոնկրետ անձին:

Excel- ից VBA կոդով ուղարկեք մեկ աշխատանքային թերթ որպես հավելված

Եթե ցանկանում եք էլեկտրոնային փոստով ուղարկել ակտիվ աշխատանքային թերթը որպես հավելված, հետևյալ VBA կոդը կարող է լավություն բերել ձեզ:

1, Ակտիվացրեք ձեր աշխատանքային թերթը, որը ցանկանում եք ուղարկել:

2, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

3: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.

VBA կոդ. Excel- ից ուղարկեք ընթացիկ աշխատանքային թերթը որպես հավելված

Sub SendWorkSheet()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
    xFile = ".xlsx"
    xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
    If Wb2.HasVBProject Then
        xFile = ".xlsm"
        xFormat = xlOpenXMLWorkbookMacroEnabled
    Else
        xFile = ".xlsx"
        xFormat = xlOpenXMLWorkbook
    End If
Case Excel8:
    xFile = ".xls"
    xFormat = Excel8
Case xlExcel12:
    xFile = ".xlsb"
    xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
    .To = "skyyang@extendoffice.com"
    .CC = ""
    .BCC = ""
    .Subject = "kte features"
    .Body = "Please check and read this document."
    .Attachments.Add Wb2.FullName
    .Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub

ՆշումՎերոնշյալ ծածկագրում հետևյալ տեղեկատվությունը կարող եք փոխել ձեր իսկ կարիքների համար:

.Դեպ = "skyyang @extendoffice.com »
.CC = ""
.BCC = ""
.Tubject = "kte հատկությունները"
.Body = "Խնդրում ենք ստուգել և կարդալ այս փաստաթուղթը:"

4. Այնուհետեւ կտտացրեք F5 այս կոդը գործարկելու համար ստեղնը, և հուշում է, որ պատուհանը դուրս կգա, կտտացրեք Թույլ տալ երբ առաջընթացի տողն ավարտված է, և ապա ընթացիկ աշխատանքային թերթը ուղարկվել է ձեր ստացողին ՝ որպես հավելված:

doc-email-sheet6

Excel- ից VBA կոդով ուղարկեք մեկ աշխատանքային թերթ որպես PDF ֆայլ

Երբեմն անհրաժեշտ է, որ ձեր աշխատանքային թերթի հաշվետվությունն ուղարկեք ուրիշներին, բայց չեք ուզում, որ ուրիշները փոփոխեն այն: Այս դեպքում Excel- ից կարող եք ուղարկել աշխատանքային թերթը որպես PDF ֆայլ:

1. Ակտիվացրեք ձեր աշխատանքային թերթը, որը ցանկանում եք ուղարկել:

2, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

3: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.

VBA կոդ. Excel- ից ուղարկեք ընթացիկ աշխատանքային թերթը որպես PDF ֆայլ

Sub SendWorkSheetToPDF()
'Update 20131209
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
    .To = "skyyang@extendoffice.com"
    .CC = ""
    .BCC = ""
    .Subject = "kte features"
    .Body = "Please check and read this document."
    .Attachments.Add FileName
    .Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

Նշում. Վերոնշյալ ծածկագրում հետևյալ տեղեկությունները կարող եք փոխել ձեր պահանջի:

.Դեպ = "skyyang @extendoffice.com »
.CC = ""
.BCC = ""
.Tubject = "kte հատկությունները"
.Body = "Խնդրում ենք ստուգել և կարդալ այս փաստաթուղթը:"

4, Դրանից հետո սեղմեք F5 ստեղնը, և հուշման վանդակը դուրս կգա, կտտացրեք Թույլ տալ առաջընթացի սանդղակի ֆինանսավորումից հետո, ապա ակտիվ աշխատանքային թերթը ուղարկվել է կոնկրետ անձին ՝ որպես PDF ֆայլ:

doc-email-sheet6

Նշումներ:

1. Այս մեթոդները մատչելի են միայն այն ժամանակ, երբ Outlook- ն օգտագործում եք որպես ձեր փոստային ծրագիր:

2. Ընթացիկ աշխատանքային թերթն ուղարկելուց հետո կարող եք գնալ ձեր Outlook ՝ համոզվելու, որ էլփոստը հաջողությամբ ուղարկվել է:

Ստեղծեք փոստային ցուցակ, ապա ուղարկեք էլ

The Excel- ի համար նախատեսված գործիքներ's Ստեղծեք փոստային ցուցակ և ուղարկել Emails Կոմունալ ծառայությունները կարող են արագ ստեղծել փոստային ցուցակ աշխատանքային թերթում, ապա ուղարկել նույն թեման, նույն բովանդակությունը և նույն կցորդները բազմաթիվ էլ. հասցեներին:

Անցեք Ներբեռնում
Անվճար փորձաշրջան 30 օր

Առնչվող հոդվածներ քանակը:

Ինչպե՞ս ուղարկել ընթացիկ աշխատանքային գիրքը Excel- ի միջոցով Outlook- ի միջոցով:

Ինչպե՞ս ուղարկել / էլ. Փոստի բջիջների շարք ուղարկել Excel- ի հեռանկարի միջոցով:

Գրասենյակի արտադրողականության լավագույն գործիքները

Excel- ի համար նախատեսված Kutools- ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80% -ով

Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
Ավելի քան 300 հզոր առանձնահատկություններ, Աջակցում է Office / Excel 2007-2019 և 365. Աջակցում է բոլոր լեզուները: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հատկություններ ՝ 30-օրյա անվճար փորձաշրջան: 60-օրյա գումարի վերադարձի երաշխիք:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
Բարձրացնում է ձեր արտադրողականությունը 50% -ով և նվազեցնում է ձեզ համար ամեն օր մկնիկի հարյուրավոր կտտոցներ:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...

28 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest

or post as a guest, but your post won't be published automatically.

Loading comment... The comment will be refreshed after 00:00.

To post as a guest, your comment is unpublished.
Bhattacharjee · 1 years ago
This is to inform you that i have an VBA code for send email from outlook with the help of excel vba,now i want to put "MDD Code" & " MDD Name" as well as Cells(i, 1) & Cells(i, 2) in a table like that.

MDD Code MDD Name
M123 Joydip

I am sending you the VBA Code,Request you for help.
VBA Code
----------------------------------------------------------------------------------------------------------------------------------------------
Sub sendmail()

Dim olapp As Outlook.Application

Dim olmail As Outlook.MailItem

For i = 2 To 35

Application.ScreenUpdating = False

Set olapp = New Outlook.Application

Set olmail = olapp.CreateItem(olMailItem)

With olmail

olmail.To = Cells(i, 4).Value

olmail.CC = Cells(i, 6).Value

olmail.Subject = Cells(i, 7).Value

olmail.HTMLBody = "Dear Partner ," & _

"
Please find the attchment." & _

"

MDD Code : " & Cells(i, 1) & _

"
MDD Name : " & Cells(i, 2) & _

"

Joydip Bhattacharjee" & _

"
Company" & _

"
MIS" & _

"
Country" & _

"
Contact No : 7602066491"

olmail.Attachments.Add Cells(i, 8).Value

'On Error Resume Next

'olmail.Attachments.Add Cells(i, 9).Value

'On Error Resume Next

'olmail.Attachments.Add Cells(i, 10).Value

'On Error Resume Next

'olmail.Attachments.Add Cells(i, 11).Value

'On Error Resume Next

'olmail.Attachments.Add Cells(i, 12).Value

'On Error Resume Next

'olmail.Attachments.Add Cells(i, 13).Value

'On Error Resume Next

'olmail.Attachments.Add Cells(i, 14).Value

'On Error Resume Next

olmail.Send

End With

Set olmail = Nothing

Next

End Sub
- Reply
To post as a guest, your comment is unpublished.
mehmet · 2 years ago
merhaba ben bunu belirli periyotta otomatik mail atmasını nasıl ayarlayabilirim
- Reply
To post as a guest, your comment is unpublished.
Oscar Eseisa · 3 years ago
Excelent code. Thanks!
- Reply
To post as a guest, your comment is unpublished.
Dave · 3 years ago
Anyway I can easily send an excel worksheet through my outlook without all this ?? I can send the worksheet context, but no the workbook as an attachment. On my work computer I can send from word and excel, but am having trouble at home.
- Reply
To post as a guest, your comment is unpublished.
Richard · 3 years ago
Hi! Is it possible to use this code, but instead of sending straight away it opens up the mail?
- Reply
- To post as a guest, your comment is unpublished.
  Sunny · 3 years ago
  
  You can try this code:
  Sub SendWorkSheet()
  'Update 20180109
  Dim xFile As String
  Dim xFormat As Long
  Dim Wb As Workbook
  Dim Wb2 As Workbook
  Dim FilePath As String
  Dim FileName As String
  Dim OutlookApp As Object
  Dim OutlookMail As Object
  On Error Resume Next
  Application.ScreenUpdating = False
  Set Wb = Application.ActiveWorkbook
  ActiveSheet.Copy
  Set Wb2 = Application.ActiveWorkbook
  Select Case Wb.FileFormat
  Case xlOpenXMLWorkbook:
  xFile = ".xlsx"
  xFormat = xlOpenXMLWorkbook
  Case xlOpenXMLWorkbookMacroEnabled:
  If Wb2.HasVBProject Then
  xFile = ".xlsm"
  xFormat = xlOpenXMLWorkbookMacroEnabled
  Else
  xFile = ".xlsx"
  xFormat = xlOpenXMLWorkbook
  End If
  Case Excel8:
  xFile = ".xls"
  xFormat = Excel8
  Case xlExcel12:
  xFile = ".xlsb"
  xFormat = xlExcel12
  End Select
  FilePath = Environ$("temp") & "\"
  FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
  Set OutlookApp = CreateObject("Outlook.Application")
  Set OutlookMail = OutlookApp.CreateItem(0)
  Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
  With OutlookMail
  .To = "skyyang@extendoffice.com"
  .CC = ""
  .BCC = ""
  .Subject = "kte features"
  .Body = "Please check and read this document."
  .Attachments.Add Wb2.FullName
  .Display
  ' .Send
  End With
  Wb2.Close
  Kill FilePath & FileName & xFile
  Set OutlookMail = Nothing
  Set OutlookApp = Nothing
  Application.ScreenUpdating = True
  End Sub
  
  Please let me know if it works for you, thank you.
  
  Reply
To post as a guest, your comment is unpublished.
Sherry · 4 years ago
This code works good, however, does anyone know a way to automate a field as an alert for the email to go automatically based on a date column?
- Reply
To post as a guest, your comment is unpublished.
Adanma · 4 years ago
Kindly help me out urgently. This the first time I am using the send current worksheet as PDF but the below code did not work at all and the dialogue to allow did not show up when I presses ctrl+G.

I also want to know what to change to reference a cell that contained the email address instead of "to a specific email address.

Sub SendWorkSheetToPDF()
'Update 20131209
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
.To = "skyyang@extendoffice.com"
.CC = ""
.BCC = ""
.Subject = "kte features"
.Body = "Please check and read this document."
.Attachments.Add FileName
.Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub
- Reply
To post as a guest, your comment is unpublished.
Ramakumar · 5 years ago
Sir

I am able to send selected worksheet as attachment by including subject & Text.
But the file name is showing as book1-02-apr-2016....

Instead i want to give the file name in the code itself ( same name to continue every time i send)

Kindly helpme
- Reply
To post as a guest, your comment is unpublished.
Archana · 5 years ago
Can we allow the user to add the email ID with above mentioned code... Its works really good if we mention the To email id...
- Reply
To post as a guest, your comment is unpublished.
CHARLES · 5 years ago
hi,
im french , sorry for my english.
How is it possible to put the value's cell of my sheet in .too/ .CC ...

i think is it like :

Sub SendWorkSheet()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
If Wb2.HasVBProject Then
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Else
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
Case Excel8:
xFile = ".xls"
xFormat = Excel8
Case xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
.To = "skyyang@extendoffice.com" & RANGE("AVIVA!b12")
.CC = "" & RANGE("AVIVA!c12")
.BCC = ""
.Subject = "NOUVEAU DOSSIER"
.body = "Please check and read this document."
.Attachments.Add Wb2.FullName
.DISPLAY
.Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub

thank's for you help
- Reply
To post as a guest, your comment is unpublished.
Karan · 6 years ago
Hi The macro works for me perfectly fine. I have never used macros before so, can anyone please put me in the right direction - I am trying to send this to more than one person but not sure how put extra email addresses in the "to" section of the macro.

Thanks in advance
- Reply
To post as a guest, your comment is unpublished.
Jash · 6 years ago
Hey I am using a automation process in my company I need to upgrade all my pc with the excel and outlook 2010 i have a code in windows xp with which i am mailing a sheet using outlook express the code is working fine in xp but now i need to upgrade it with windows 7 . I tried alot but i cant send the sheet so plz help
- Reply
To post as a guest, your comment is unpublished.
Jerry · 6 years ago
Send single worksheet as an attachment from Excel with VBA code: Excellent VBA Code. Works GREAT !!! Thank you!!! :-)
Instead of entering the To: & CC: e-mails manually, I want to pull the e-mail addresses from a separate worksheet called "E-Mail List". The (a1) has the "To" e-mail address and (b1) has the "CC" e-mail address. I know this is relatively simple to solve but I cannot figure out what I am doing wrong.

Thank you everyone in advance.

Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
.To = "skyyang@extendoffice.com"
.CC = ""
.BCC = ""
.Subject = "kte features"
.Body = "Please check and read this document."
.Attachments.Add Wb2.FullName
.Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub
- Reply
To post as a guest, your comment is unpublished.
Shel · 6 years ago
I'm trying to use this code to send a single spreadsheet using a personally created template *.ost file that resides on the c:\ drive. Can't seem to figure out how to adapt the code above for that. Any pointers?
- Reply
To post as a guest, your comment is unpublished.
Janet · 6 years ago
Hi, I am using Office 2010 and Windows 7.
Thanks!
- Reply
- To post as a guest, your comment is unpublished.
  admin_jay · 6 years ago
  
  [quote name="Janet"]Hi, I am using Office 2010 and Windows 7.
  Thanks![/quote]
  Hello, this VBA is OK with Office 2010 in Window 7. Please make sure you have open your Outlook before running this VBA.
  
  Reply
To post as a guest, your comment is unpublished.
Janet · 6 years ago
I am using the code above to send a single sheet as an excel attachment, the problem I am having, is that it is sending the whole workbook, not just a single worksheet.
I only changed the "To", "Subject" and "Body" for the email.
I am not sure what went wrong.
Help Please! :sad:
- Reply
- To post as a guest, your comment is unpublished.
  admin_jay · 6 years ago
  
  [quote name="Janet"]I am using the code above to send a single sheet as an excel attachment, the problem I am having, is that it is sending the whole workbook, not just a single worksheet.
  I only changed the "To", "Subject" and "Body" for the email.
  I am not sure what went wrong.
  Help Please! :sad:[/quote]
  Hello, please tell me the version information of your Office and computer system.
  
  Reply
To post as a guest, your comment is unpublished.
Janet · 6 years ago
I am using the second example above to send a single sheet out of the workbook, but it is sending the whole workbook. I copied the above example and the only part I changed was the email address.
I am not sure what is wrong.
- Reply
To post as a guest, your comment is unpublished.
SomeOneVBA · 6 years ago
Hi,

I'm using this code but I have any issue when sending.
It's not a big problem but I don't like it :-)

I first auto save the file to a certain location via VBA before sending the file by mail. The file already has name ending on .xlsx

When emailing the file, the attachement reads .xlsx.xlsx so it adds .xslx to the file.

Does anybody know if I can it to ignore saving before sending it as attachment ? I already have it saved before sending...

Thanks,
- Reply
To post as a guest, your comment is unpublished.
Jim Bristow · 7 years ago
I am attempting to Send Multiple Name Ranges within given workbooks as PDF's via Outlook. Automating open and closing numerous workbooks. I am not certain how to modify stated code below which works great sending a worksheet with All new versions on Laptop. I sent multiple reports each night off my desk top Windows 7 Excel and Outlook 10 Adobe Acrobat Pro 10 and attempting to reconfigure to do same on laptop with upgraded versions of windows 8.1 Office 15 and adobe acrobat Xl.

Your Recommended Codes for Sending Worksheets

Sub SendWorkSheetToPDF()
'Update 20131209
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
.To = "jbristow1@gmail.com"
.CC = ""
.BCC = ""
.Subject = "Outlook Code"
.Body = "Please check and read this document."
.Attachments.Add FileName
.Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub
- Reply
- To post as a guest, your comment is unpublished.
  SomeOneVBA · 6 years ago
  
  Jim,
  
  You need to add ; behind the email address and add an other, see example below :
  
  .To = "jbristow1@gmail.com; someone@gmail.com; onemoreperson@gmail.com"
  
  Reply
To post as a guest, your comment is unpublished.
ogunyemi · 7 years ago
I have attached send to mail recipient, but is not activated when i click to send the excel. What am i doning wrong?
- Reply
To post as a guest, your comment is unpublished.
Niti Trivedi · 7 years ago
Hi I want to send only selected cells through a command button in excel to receipts through outlook.
- Reply
To post as a guest, your comment is unpublished.
Chanda · 7 years ago
When I use the VBA code to send as a pdf, the email sends fine, however there is no attachment. What am I doing wrong?

Thanks,
Chanda
- Reply
- To post as a guest, your comment is unpublished.
  HosWorker · 6 years ago
  
  Did you get an anser for this? Im also having the same difficulty.
  
  Reply
To post as a guest, your comment is unpublished.
Russ Streff · 7 years ago
How do you add multiple recipients in the second example using VBA code?
- Reply

Մուտք Ձեր հաշիվը

Գաղտնաբառ վերագործարկում