Email Macro

[vmjan02]

My code works all fine but having error as Method Range of object _global failed
any suggestion as i am using office365

Sub ImageRejection()
Sheets("Email Rejection").Select

    'Open a new mail item
    Dim outlookApp As Outlook.Application
    Set outlookApp = CreateObject("Outlook.Application")
    Dim outMail As Outlook.MailItem
    Set outMail = outlookApp.CreateItem(olMailItem)
    'Get its Word editor
    outMail.Display
   
   With outMail
    .To = Sheets("Email Rejection").Range("C3").Value
    .CC = Sheets("Email Rejection").Range("C4").Value
    .BCC = Sheets("Email Rejection").Range("C5").Value
    .Subject = Sheets("Email Rejection").Range("C6").Value
'    .Body = Sheets("Email Rejection").Range("C7").Value
'    .Display
   End With
   
    Dim wordDoc As Word.document
    Set wordDoc = outMail.GetInspector.WordEditor
    ' Copy and paste ranges from desired sheets
    PastePic wordDoc, "Email Rejection!C8:D8"

Sheets("Email Rejection").Select
End Sub
Private Sub PastePic(wordDoc As Word.document, rngRange As String)
    Dim r As Word.Range
    'Copy range of interest
    [B]Range(rngRange).Copy  --- here is error[/B]
    'Paste as picture in sheet and cut immediately
    ActiveSheet.Pictures.Paste.Cut
    Set r = wordDoc.Content
    r.collapse Direction:=wdCollapseEnd
    r.Paste
    i = wordDoc.InlineShapes.Count
    wordDoc.InlineShapes.Item(i).ScaleHeight = 85
    'wordDoc.InlineShapes.Item(I).ScaleWidth = 100
End Sub

 

[shknbk2]

Range(rngRange) can't be SheetName!CellRange. You can either add another parameter to PastePic to send the worksheet name and rngRange separately or separate the SheetName and CellRange with this:

Worksheets(Left(rngRange, InStr(1, rngRange, "!") - 1)).Range(Right(rngRange, Len(rngRange) - InStrRev(rngRange, "!"))).Copy

 

[vmjan02]

Range(rngRange) can't be SheetName!CellRange. You can either add another parameter to PastePic to send the worksheet name and rngRange separately or separate the SheetName and CellRange with this:

Worksheets(Left(rngRange, InStr(1, rngRange, "!") - 1)).Range(Right(rngRange, Len(rngRange) - InStrRev(rngRange, "!"))).Copy

kool its working perfect.