Dydd Mawrth, Chwefror 14 2023
  0 atebion
  Ymweliadau 2.1K
0
Pleidleisiau
Dadwneud
Rwy'n newydd i VBA. Rwy'n edrych i anfon e-bost pan fydd cell K wedi "Ie" mewn .... Rwyf wedi cyrraedd mor bell â hyn ond yn cael trafferth gyda'r cam nesaf.

Hoffwn i'r corff e-bost ddarllen fel isod:

Helo, crynodeb cynnig prosiect isod.

Enw'r prosiect: *Gwybodaeth o gell A*
Disgrifiad: *cell B*
Ateb: * cell C*
Buddion: *Cell D*
Cost: *Cell F*
Amser: Cell *G*
Risg: Cell *H*
Cwsmer(iaid): Cell I
Brand(s): Cell J

Regards fath,

*Cell L*


Isod mae'r cod rydw i wedi'i ddefnyddio hyd yn hyn:


Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Os Targed.Cells.Cyfrif > 1 Yna Gadael Is
Os (Ddim yn Croestorri (Targed, Ystod ("K:K"))) Ddim yn Ddim) A (Target.Value = "Ydw") Yna
Ffoniwch Mail_small_Text_Outlook
Gorffennwch Os
Is-End
Is-bost_small_Text_Outlook()
Dim xOutApp Fel Gwrthrych
Dim xOutMail Fel Gwrthrych
Dim xMailBody Fel Llinyn
Gosod xOutApp = CreateObject ("Outlook.Application")
Gosod xOutMail = xOutApp.CreateItem(0)
xMailBody = "Helo yno" & vbNewLine & vbNewLine&_
msgstr "Dyma llinell 1" &vbNewLine&_
"Dyma llinell 2"
Ar Ail-ddechrau Gwall Nesaf
Gyda xOutMail
.To = "cyfeiriad e-bost"
.CC = ""
.BCC = ""
.Subject = "anfon trwy brawf gwerth celloedd"
.Corff = xMailBody
.Display' neu ddefnyddio .Send
Diwedd Gyda
Ar Gwall Ewch i 0
Gosod xOutMail = Dim byd
Gosod xOutApp = Dim byd
Is-End

Diolch, ymlaen llaw, i unrhyw un a all fy helpu.
Ni wnaed unrhyw atebion i'r swydd hon eto.