Note: The other languages of the website are Google-translated. Back to English

 Sut i anfon e-bost at dderbynwyr lluosog mewn rhestr gan Excel trwy Outlook?

Os oes gennych sawl cyfeiriad e-bost mewn colofn o daflen waith, ac yn awr, rydych chi am anfon e-bost at y rhestr hon o dderbynwyr o Excel yn uniongyrchol heb agor yr Outlook. Yr erthygl hon, byddaf yn siarad am sut i anfon e-bost at dderbynwyr lluosog o Excel ar yr un pryd.

Anfon e-bost at dderbynwyr lluosog o Excel gyda chod VBA

Anfon e-bost at dderbynwyr lluosog gyda'r llyfr gwaith cyfredol fel atodiad trwy ddefnyddio cod VBA


swigen dde glas saeth Anfon e-bost at dderbynwyr lluosog o Excel gyda chod VBA

Gallwch ddefnyddio cod VBA i anfon neges at dderbynwyr lluosog ar unwaith, gwnewch fel a ganlyn:

1. Dal i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Anfon e-bost at dderbynwyr lluosog

Sub sendmultiple()
'updateby Extendoffice
    Dim xOTApp As Object
    Dim xMItem As Object
    Dim xCell As Range
    Dim xRg As Range
    Dim xEmailAddr As String
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the addresses list:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOTApp = CreateObject("Outlook.Application")
    For Each xCell In xRg
        If xCell.Value Like "*@*" Then
            If xEmailAddr = "" Then
                xEmailAddr = xCell.Value
            Else
                xEmailAddr = xEmailAddr & ";" & xCell.Value
            End If
        End If
    Next
    Set xMItem = xOTApp.CreateItem(0)
    With xMItem
        .To = xEmailAddr
        .Display
    End With
End Sub

3. Ac yna pwyswch F5 yn allweddol i weithredu'r cod hwn, bydd blwch prydlon yn popio allan i'ch atgoffa rhag dewis y rhestr cyfeiriadau, gweler y screenshot:

doc anfon derbynwyr lluosog 1

4. Yna cliciwch OK, ac Rhagolwg Neges ffenestr yn cael ei harddangos, gallwch weld bod yr holl gyfeiriadau e-bost a ddewiswyd wedi'u hychwanegu at y I maes, ac yna gallwch chi fynd i mewn i'r pwnc a chyfansoddi'ch neges, gweler y screenshot:

doc anfon derbynwyr lluosog 2

5. Ar ôl gorffen y neges, cliciwch anfon botwm, ac anfonir y neges hon at y derbynwyr hyn yn eich rhestr taflen waith.


swigen dde glas saeth Anfon e-bost at dderbynwyr lluosog gyda'r llyfr gwaith cyfredol fel atodiad trwy ddefnyddio cod VBA

Os oes angen i chi anfon neges at dderbynwyr lluosog sydd â'r llyfr gwaith cyfredol fel atodiad, gallwch gymhwyso'r cod VBA canlynol.

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Anfon e-bost at dderbynwyr lluosog gyda'r llyfr gwaith cyfredol fel atodiad

Sub EmailAttachmentRecipients()
'updateby Extendoffice
    Dim xOutlook As Object
    Dim xMailItem As Object
    Dim xRg As Range
    Dim xCell As Range
    Dim xEmailAddr As String
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the arresses list:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOutlook = CreateObject("Outlook.Application")
    Set xMailItem = xOutlook.CreateItem(0)
    For Each xCell In xRg
        If xCell.Value Like "*@*" Then
            If xEmailAddr = "" Then
                xEmailAddr = xCell.Value
            Else
                xEmailAddr = xEmailAddr & ";" & xCell.Value
            End If
        End If
    Next
    With xMailItem
        .To = xEmailAddr
        .CC = ""
        .Subject = ""
        .Body = ""
        .Attachments.Add ActiveWorkbook.FullName
        .Display
    End With
    Set xOutlook = Nothing
    Set xMailItem = Nothing
End Sub

3. Ar ôl pasio'r cod, pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i'ch atgoffa rhag dewis y cyfeiriadau rydych chi am anfon neges atynt, gweler y screenshot:

doc anfon derbynwyr lluosog 3

4. Yna cliciwch OK botwm, ac Rhagolwg Neges ffenestr yn cael ei harddangos, mae'r holl gyfeiriadau e-bost wedi'u hychwanegu at y I maes, ac mae eich llyfr gwaith cyfredol wedi'i fewnosod fel atodiad hefyd, ac yna gallwch chi fynd i mewn i'r pwnc a chyfansoddi'ch neges, gweler y screenshot:

doc anfon derbynwyr lluosog 4

5. Yna cliciwch anfon botwm i anfon y neges hon at y rhestr o dderbynwyr gyda'r llyfr gwaith cyfredol fel atodiad.


Anfon e-byst wedi'u personoli at dderbynwyr lluosog gyda gwahanol atodiadau:

gyda Kutools ar gyfer Excel's Anfon E-byst nodwedd, gallwch chi anfon e-byst wedi'u personoli yn gyflym at dderbynwyr lluosog gyda gwahanol atodiadau gan Excel trwy Outlook yn ôl yr angen. Ar yr un pryd, gallwch CC neu Bcc y negeseuon i berson penodol hefyd. Cliciwch i lawrlwytho Kutools ar gyfer Excel!

doc yn anfon e-byst wedi'u personoli 18 1


Erthygl gysylltiedig:

Sut i anfon e-byst torfol wedi'u personoli i restr o Excel trwy Outlook?


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (20)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn anhygoel, yn union beth rydw i eisiau. A oes yna beth bynnag i ychwanegu nodwedd lle gallwch ychwanegu neges i'r llinell pwnc gan ddefnyddio cod... Dydw i ddim eisiau unrhyw beth yn y blwch neges
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Mae'r cod VBA yn gweithio'n dda i mi diolch. A oes unrhyw ffordd y gallwn i greu cell gyda botwm o fath sy'n sbarduno'r popup "dewis rhestr bostio"? Jake
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Diolch am y cod. A oes ffordd y gallaf greu botwm gorchymyn ar yr excel ac yna trwy glicio ar y botwm hwnnw gellir anfon yr un ddalen excel at dderbynwyr lluosog fel atodiad.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut gallaf wneud hyn gan ddefnyddio llinell BCC?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Robert,
Ar ôl rhedeg y cod, bydd y ffenestr neges newydd yn cael ei hagor, does ond angen i chi fewnosod y llinell BCC o dan y tab Opsiwn, gweler y sgrinlun canlynol:


Gobeithio y gall eich helpu, diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Unrhyw ffordd i ddefnyddio hwn i anfon o e-bost a rennir? Ni allaf ymddangos fel pe bawn yn gosod maes .SendOnBehalfOf.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! Bob mis dylwn anfon yr un e-bost ar gyfer darparwyr gwahanol, ond ni ddylent fod yn yr un e-bost ..... sut y gallaf anfon yr un e-bost ar gyfer cyrchfannau gwahanol heb bawb yn yr un e-bost ?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Vinicius,
Er mwyn anfon yr un e-bost at dderbynwyr lluosog ar wahân, efallai y gall yr erthygl ganlynol eich helpu chi, edrychwch arno.
https://www.extendoffice.com/documents/excel/3560-excel-send-personalized-email.html
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Bore,


Rwy'n newydd i geisio ysgrifennu a defnyddio macros yn excel. Fy ymgais gyntaf oedd ceisio creu e-bost torfol is-set o restr meistr fawr. Fe wnes i dorri a gludo'r drefn gyntaf, yna ceisio ei defnyddio i gyd oedd yn tynnu sylw at y celloedd y gofynnais amdanynt. ni chrëwyd e-bost outlook, beth wnes i'n anghywir? I ymhelaethu ar fy nghais gwirioneddol, rydw i wir eisiau targedu e-byst trwy god zip neu is-setiau eraill. sut mae creu macro a fydd yn chwilio colofn am god zip penodol ac yn creu e-bost gyda'r holl dderbynwyr wedi'u canfod?

diolch

Steve
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r Cod hwn gen i, fy mhroblem yw ei fod yn creu un e-bost ar gyfer pob tro nad yw'r amod yn gyflawn, ond rydw i eisiau rhoi'r holl wybodaeth sydd ddim yn cyrraedd y cyflwr mewn un e-bost yn unig

Is EnviarCorreo()
Dim OutApp Fel Gwrthrych
Dim OutMail Fel Gwrthrych
Dim lLastRow Cyhyd
Dim lRow Cyhyd
Dim sSendTo Fel Llinynnol
Dim sSendCC Fel Llinyn
Dim sSendBCC Fel Llinyn
Dim sSubject Fel Llinynnol
Dim sTemp Fel Llinyn

Set OutApp = CreateObject ("Outlook.Application")
OutApp.Session.Logon

' Newidiwch y canlynol yn ôl yr angen
sSendTo=""
sSendCC=""
sSendBCC=""
sSubject = "Cyrhaeddwyd y dyddiad dyledus"

Gosod OutMail = OutApp.CreateItem(0)

lLastRow = Celloedd(Rhesi.Cyfrif, 3).Diwedd(xlUp).Rhes
Am lRow = 3 I lLastRow
Os Celloedd(lRow, 9) <> "S" Yna
Os Celloedd(lRow, 2) <= Dyddiad Yna

Ar Ail-ddechrau Gwall Nesaf
Gydag OutMail
.To = sSendTo
Os sSendCC > "" Yna .CC = sSendCC
Os sSendBCC > "" Yna .BCC = sSendBCC
.Subject = sSubject

sTemp = "Helo!" & vbCrLf & vbCrLf
sTemp = sTemp & "Mae'r dyddiad dyledus wedi ei gyrraedd"
sTemp = sTemp & "ar gyfer y prosiect hwn:" & vbCrLf & vbCrLf


'Dyma BETH RYDW I AM EI AILDRO AR GORFF E-BOST
' Yn cymryd bod enw'r prosiect yng ngholofn B
sTemp = sTemp & "ID:"
sTemp = sTemp & " " & Celloedd(lRow, 1)
sTemp = sTemp & " Disgrifiad: "
sTemp = sTemp & " " & Celloedd(lRow, 5)
sTemp = sTemp & " Cymerwch y priodol"
sTemp = sTemp & " gweithred." & vbCrLf & vbCrLf
sTemp = sTemp & " Diolch!" & vbCrLf
' TAN YMA



.Corff = sTemp
' Newidiwch y canlynol i .Send os dymunwch
' anfon y neges heb adolygu yn gyntaf
.Arddangos
Diwedd Gyda
Set OutMail = Dim byd

Cells(lRow, 9) = "S"
Cells(lRow, 10) = "E-bost wedi'i anfon ymlaen: " & Now()
Gorffennwch Os
Gorffennwch Os
lRow nesaf
Gosod OutApp = Dim byd
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw'n bosibl pimpio'r cod ar gyfer dewis y CCs o restr yr un ffordd ar ôl dewis y TOs? Gyda'r cod presennol nid yw'n bosibl dewis unrhyw CC yn yr un ffordd â'r TOs (prif gyfeiriadau). 
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Eugen, Falch o helpu. Mae'n bosibl pimpio'r cod ar gyfer dewis y CCs o restr yr un ffordd ar ôl dewis y TOs. Ac mae'r cod yn y bôn yr un peth â chod VBA TOs. Dim ond un newid y dylid ei wneud. Dim ond newid y ".To = xEmailAddr" i ".Cc = xEmailAddr". Gweler y sgrinlun. A gallwch ddewis y CCs a'r TOs o restr ar yr un pryd. Gwnewch y ".To = xEmailAddr" a ".Cc = xEmailAddr" i gyd wedi'u cynnwys yn y cod VBA. Gludwch y cod canlynol yn Ffenestr y Modiwl.
Is anfon lluosog()
'diweddaru erbyn Extendoffice
Dim xOTApp Fel Gwrthrych
Dim xMItem Fel Gwrthrych
Dim xCell Fel Ystod
Dim xRg Fel Ystod
Dim xEmailAddr Fel Llinynnol
Dim xTxt Fel Llinyn
Ar Ail-ddechrau Gwall Nesaf
xTxt = ActiveWindow.RangeSelection.Address
Gosod xRg = Application.InputBox ("Dewiswch y rhestr cyfeiriadau:"", "Kutools ar gyfer Excel", xTxt, , , , , , 8)
Os yw xRg Yn Ddim Yna Ymadael Is
Gosod xOTApp = CreateObject ("Outlook.Application")
Am Bob xCell Mewn xRg
Os xCell.Value Fel "*@*" Yna
Os xEmailAddr = " "Yna
xEmailAddr = xCell.Value
arall
xEmailAddr = xEmailAddr &;" &xCell.Gwerth
Gorffennwch Os
Gorffennwch Os
Digwyddiadau
Gosod xMItem = xOTApp.CreateItem(0)
Gyda xMItem
.To = xEmailAddr
.Cc = xEmailAddr
.Arddangos
Diwedd Gyda
Is-End

Gobeithio y gall ddatrys eich problem. Cael diwrnod braf.Yn gywir, Mandy
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n ceisio cael excel i anfon e-bost at dderbynwyr lluosog a gallaf gael popeth sydd ei angen arnaf ond mae'n gwrthod rhoi'r cyfeiriad e-bost yn y blwch TO. Dyma'r côd dwi wedi bod yn gweithio efo. A all unrhyw un fy helpu i ddarganfod beth rwy'n ei wneud o'i le? Diolch yn fawr iawn!

Is-facro1()
Dim rngCell Fel Ystod
Dim rngMyDataSet As Range
Dim Rng Fel Ystod
Dim OutApp Fel Gwrthrych
Dim OutMail Fel Gwrthrych
Dim E-bostPwnc Fel Llinyn
Dim EmailSendTo Fel Llinynnol
Dim MailBody Fel Llinynnol
Dim Derbynnydd E-bost Fel Ystod
Llofnod Dim Fel Llinyn
Application.ScreenUpdating = Anghywir
Gyda ActiveSheet
Os .FilterMode Yna .ShowAllData
Gosod Rng = .Range("AK6", .Cells(.Rows.Count, 1).Diwedd(xlUp))
Diwedd Gyda
Ar gyfer Pob rngCell Yn Rng
Os rngCell.Offset(0, 6) > 0 Yna

ElseIf rngCell.Offset(0, 5) > Gwerthuso("Heddiw() +7") A _
rngCell.Offset(0, 5).Gwerth <= Gwerthuso("Heddiw() +30") Yna
rngCell.Offset(0, 6).Gwerth = Dyddiad

Set OutApp = CreateObject ("Outlook.Application")
Gosod OutMail = OutApp.CreateItem(0)

strbody = "Yn ôl fy nghofnodion, mae eich cytundeb" & Range("A6").Value & " i'w adolygu ar " & rngCell.Offset(0, 5).Value & vbNewLine & _
"Adolygwch y contract hwn cyn y dyddiad perthnasol ac anfonwch e-bost ataf gydag unrhyw newidiadau a wnewch i'r contract hwn. Os caiff ei adnewyddu, llenwch Daflen Glawr y Contract sydd i'w chael yn y ffolder Pawb ac anfonwch y contract gwreiddiol newydd ataf. "
EmailSendTo = rngCell.Offset(0, 0).Gwerth
EmailSubject = Dalennau("taflen1").Range("A6").Gwerth
Llofnod = "C:\Dogfennau a Gosodiadau\" & Amgylchedd("rmm") & _
"\ Data Cymhwysiad\Microsoft\Llofnodiadau\rm.htm"
Ar Ail-ddechrau Gwall Nesaf
Gydag OutMail
.To = EmailSendTo
.CC = "hhh@gmail.com"
.BCC = ""
.Subject = EmailSubject
.Corff = strbody
.Arddangos
Send_Value = Mail_Recipient.Offset(i - 1).Gwerth
Diwedd Gyda
Ar Gwall Ewch i 0
Set OutMail = Dim byd
Gosod OutApp = Dim byd

Gorffennwch Os

rngCell nesaf
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Diana,
Efallai y gallwch chi gymhwyso'r cod isod:

Sub Macro1()
Dim rngCell As Range
Dim Rng As Range
Dim OutApp As Object
Dim OutMail As Object
Dim EmailSubject As String
Dim EmailSendTo As String
Dim MailBody As String
Dim Signature As String
Application.ScreenUpdating = False
On Error Resume Next
With ActiveSheet
  If .FilterMode Then .ShowAllData
  Set Rng = .Range("AK6", .Cells(.Rows.Count, 1).End(xlUp))
End With
Set OutApp = CreateObject("Outlook.Application")
For Each rngCell In Rng
  If rngCell.Offset(0, 6) > 0 Then
    If rngCell.Offset(0, 5).Value > Evaluate("Today() +7") And _
       rngCell.Offset(0, 5).Value <= Evaluate("Today() +30") Then
      rngCell.Offset(0, 6).Value = Date
    End If
    Set OutMail = OutApp.CreateItem(0)
    MailBody = "According to my records, your contract " & Range("A6").Value & " is due for review on " & rngCell.Offset(0, 6).Value & vbNewLine & _
               "Please review this contract prior to the pertinent date and email me with any changes you make to this contract. If it is renewed, " & _
               "please fill out the Contract Cover Sheet which can be found in the Everyone folder and send me the new original contract."
    
    EmailSendTo = rngCell.Offset(2, 6).Value   'Please specify the row and column number of the addresses in the filtered data range,please change the number 2 and 6 to your need
    EmailSubject = Sheets("sheet1").Range("A6").Value
    Signature = "C:\Documents and Settings\" & Environ("rmm") & _
                "\Application Data\Microsoft\Signatures\rm.htm"
    With OutMail
      .To = EmailSendTo
      .CC = "hhh@gmail.com"
      .BCC = ""
      .Subject = EmailSubject
      .Body = MailBody
      .Recipients.ResolveAll
      .Display
    End With
  End If
Next rngCell
Set OutMail = Nothing
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub



EmailSendTo = rngCell.Offset(2, 6).Gwerth, dylech newid y rhif 2 a 6 i'r rhif rhes a cholofn yn seiliedig ar eich ystod ddata, mae'r ystod hon yn cynnwys y cyfeiriadau e-bost yr ydych am anfon atynt.

Ceisiwch, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch ond yn anffodus ni weithiodd. Rwy'n dal i gael yr un canlyniadau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Diana,
Yn yr achos hwn, darparwch lun neu ffeil atodiad o ddata'r daflen waith fel y gallwn benderfynu ble mae'r broblem.
Neu gallwch ddisgrifio'ch problem yn gliriach a manwl.
Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Isod mae'r cod cyfredol rwy'n ei ddefnyddio ond ni fydd yn rhoi pob cyfeiriad e-bost yn y blwch TO, dim ond y cyfeiriad e-bost cyntaf ym mhob un ohonynt. Hefyd yn gwneud yr un peth gyda'r PWNC ac yn y neges e-bost, mae'n defnyddio'r un peth dro ar ôl tro. Dydw i ddim yn siŵr sut i atodi'r daenlen i'r e-bost hwn.

Is-facro1()
Dim rngCell Fel Ystod
Dim rngMyDataSet As Range
Dim Rng Fel Ystod
Dim OutApp Fel Gwrthrych
Dim OutMail Fel Gwrthrych
Dim E-bostPwnc Fel Llinyn
Dim EmailSendTo Fel Llinynnol
Dim MailBody As Range
Dim Derbynnydd E-bost Fel Ystod
Llofnod Dim Fel Llinyn
Application.ScreenUpdating = Anghywir
Gyda ActiveSheet
Os .FilterMode Yna .ShowAllData
Gosod Rng = .Range("AJ6", .Cells(.Rows.Count, 1).Diwedd(xlUp))
Diwedd Gyda
Ar gyfer Pob rngCell Yn Rng
Os rngCell.Offset(0, 6) > 0 Yna

ElseIf rngCell.Offset(0, 5) > Gwerthuso("Heddiw() +7") A _
rngCell.Offset(0, 5).Gwerth <= Gwerthuso("Heddiw() +120") Yna
rngCell.Offset(0, 6).Gwerth = Dyddiad

Set OutApp = CreateObject ("Outlook.Application")
Gosod OutMail = OutApp.CreateItem(0)

strbody = "Yn ôl fy nghofnodion, mae eich contract " & Range("A6").Value & " i gael ei adolygu" & rngCell.Offset(0, 5).Gwerth & _
". Mae'n bwysig eich bod yn adolygu'r contract hwn cyn gynted â phosibl ac yn anfon e-bost ataf gydag unrhyw newidiadau a wnaed. Os caiff ei adnewyddu, llenwch Daflen Glawr y Contract sydd i'w chael yn y ffolder Pawb ac anfonwch y daflen glawr ataf ynghyd â'r contract gwreiddiol newydd ."
EmailSendTo = Dalennau("taflen1").Range("AJ6").Gwerth
EmailSubject = Dalennau("taflen1").Range("A6").Gwerth
Llofnod = "C:\Dogfennau a Gosodiadau\" & Amgylchedd("rmm") & _
"\ Data Cymhwysiad\Microsoft\Llofnodiadau\rm.htm"
Ar Ail-ddechrau Gwall Nesaf
Gydag OutMail
.To = EmailSendTo
.CC = "hhh@gmail.com"
.BCC = ""
.Subject = EmailSubject
.Corff = strbody
.Arddangos
Send_Value = Mail_Recipient.Offset(i - 1).Gwerth
Diwedd Gyda
Ar Gwall Ewch i 0
Set OutMail = Dim byd
Gosod OutApp = Dim byd

Gorffennwch Os

rngCell nesaf
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
Gallwch fewnosod eich llyfr gwaith fel atodiad yma, gweler y sgrinlun isod:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-attachment-1.png
Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid oes blwch "Upload Attachment" ar fy mhen.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Diana,
Os nad oes blwch "Llwytho Ymlyniad", dylech gofrestru yn gyntaf, ac yna bydd yr opsiwn "Llwytho Ymlyniad" yn ymddangos.
I gofrestru, ewch i frig yr erthygl, a chliciwch Gofrestr botwm i ddechrau.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-register.png
Mae'n ddrwg gen i am yr anghyfleustra.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir