Jestem nowy w VBA. Chcę wysłać wiadomość e-mail, gdy w komórce K zostanie wpisane „Tak”.... Zaszedłem tak daleko, ale mam problem z następnym krokiem.
Chciałbym, aby treść e-maila brzmiała jak poniżej:
Cześć, podsumowanie propozycji projektu poniżej.
Nazwa projektu: *Informacje z komórki A*
Opis: *komórka B*
Rozwiązanie: *komórka C*
Korzyści: *Komórka D*
Koszt: *Komórka F*
Czas: komórka *G*
Ryzyko: Komórka *H*
Klienci: komórka I
Marki: Cell J
Z poważaniem,
*Komórka L*
Poniżej znajduje się kod, którego do tej pory używałem:
Prywatny Sub Worksheet_Change (ByVal Target As Range)
Jeśli Target.Cells.Count > 1, to wyjdź z Sub
If (Not Intersect(Target, Range("K:K")) Is Nothing) And (Target.Value = "Yes") Then
Zadzwoń do Mail_small_Text_Outlook
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp jako obiekt
Dim xOutMail jako obiekt
Dim xMailBody jako ciąg
Ustaw xOutApp = CreateObject("Outlook.Application")
Ustaw xOutMail = xOutApp.CreateItem(0)
xMailBody = "Cześć" & vbNewLine & vbNewLine & _
"To jest linia 1" & vbNewLine & _
„To jest wiersz 2”
On Error Resume Next
Z xOutMail
.Do = "adres e-mail"
.CC = „”
.BCC = „”
.Subject = "wyślij przez test wartości komórki"
.Body = xMailBody
.Wyświetl 'lub użyj .Wyślij
Kończyć z
Przy błędzie GoTo 0
Ustaw xOutMail = Nic
Ustaw xOutApp = Nic
End Sub
Z góry dziękuję każdemu, kto może mi pomóc.
Chciałbym, aby treść e-maila brzmiała jak poniżej:
Cześć, podsumowanie propozycji projektu poniżej.
Nazwa projektu: *Informacje z komórki A*
Opis: *komórka B*
Rozwiązanie: *komórka C*
Korzyści: *Komórka D*
Koszt: *Komórka F*
Czas: komórka *G*
Ryzyko: Komórka *H*
Klienci: komórka I
Marki: Cell J
Z poważaniem,
*Komórka L*
Poniżej znajduje się kod, którego do tej pory używałem:
Prywatny Sub Worksheet_Change (ByVal Target As Range)
Jeśli Target.Cells.Count > 1, to wyjdź z Sub
If (Not Intersect(Target, Range("K:K")) Is Nothing) And (Target.Value = "Yes") Then
Zadzwoń do Mail_small_Text_Outlook
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp jako obiekt
Dim xOutMail jako obiekt
Dim xMailBody jako ciąg
Ustaw xOutApp = CreateObject("Outlook.Application")
Ustaw xOutMail = xOutApp.CreateItem(0)
xMailBody = "Cześć" & vbNewLine & vbNewLine & _
"To jest linia 1" & vbNewLine & _
„To jest wiersz 2”
On Error Resume Next
Z xOutMail
.Do = "adres e-mail"
.CC = „”
.BCC = „”
.Subject = "wyślij przez test wartości komórki"
.Body = xMailBody
.Wyświetl 'lub użyj .Wyślij
Kończyć z
Przy błędzie GoTo 0
Ustaw xOutMail = Nic
Ustaw xOutApp = Nic
End Sub
Z góry dziękuję każdemu, kto może mi pomóc.