napisał: jarjar
postów: 40
 umieszczony:
19 października 2008
13:46
|
|
Witam ponownie . Przepałem noc  i zrobiłem kolejne próby i działa . Prawdopodobnie mało snu blokuje szare komórki  . Dla zainteresowanych (może się przydać ) działa spisywanie danych do maila z komórek tak:
Dim linia1 As String
Dim linia2 As String
Dim linia3 As String
Dim linia4 As String
Dim linia5 As String
linia1 = Arkusz1.Range("A2")
linia2 = Arkusz1.Range("B2")
linia3 = Arkusz1.Range("C2")
linia4 = Arkusz1.Range("D2")
linia5 = Arkusz1.Range("E2")
aRecips(0) = "adres@wp.pl" ' Twój e-mail
Msg = "linia1" & linia1 & vbCrLf & "linia2" & linia2 & vbCrLf
Msg = Msg & vbCrLf & "linia3" & linia3 & vbCrLf & "linia4" & linia4 & vbCrLf
Msg = Msg & vbCrLf & "linia5" & linia5 & vbCrLf
Można jeszcze eksperymentować dalej ale to działa .
Pozdrawiam i sory za zamieszanie. |
|
|
napisał: jarjar
postów: 40
umieszczony:
19 października 2008
00:55
|
|
Ten skrypt działa bez zarzutów w mojej sieci LAN. na poczcie z @wp.pl. Musze jeszcze sprawdzić jak to jest w firmie, bo możliwe jest taka opcja , że informatycy zablokowali możliwość wysyłania e-maila przez programy w sieci. Ale myślę , że to jest do rozwiązania.
Dzięki za pomoc
Mam jeszcze jedno pytanie, próbuję już od miesiąca.
Mianowicie w linijce tego makra na wysyłanie e-maila Outlookiem Express :
aRecips(0) = "adres@wp.pl"
Msg = "To jest pierwsza linia tekstu," & vbCrLf & "a to druga linia." & vbCrLf
Msg = Msg & vbCrLf & "Powinna być jedna linia odstępu."
próbowałem podstawić w miejsce : "To jest pierwsza linia tekstu", zmienną z tabelki z Arkusza. Kurka wodna i nie wpisuje danych do textu.
próbowałem tak :
Dim linia1 As String
Dim linia2 As String
Dim linia3 As String
Dim linia4 As String
Dim linia5 As String
linia1 = Arkusz2.Range("A2").Value
linia2 = Arkusz2.Range("B2").Value
linia3 = Arkusz2.Range("C2").Value
linia4 = Arkusz2.Range("D2").Value
linia5 = Arkusz2.Range("E2").Value
aRecips(0) = "adres@wp.pl"
Msg = linia1 & vbCrLf & "linia2" & vbCrLf
itd z pozostałymi liniami ale
nic nie wpisywało w liście wysłanym.
Próbował może ktoś takich sztuczek???
Jeśli tak to proszę o radę.
Pozdrawiam |
|
|
napisał: jarjar
postów: 40
umieszczony:
2 października 2008
17:08
|
|
| Popróbuję jak to będzie się sprawdzało u mnie i napiszę na forum.Zawsze nowe doświadczenie ;) |
|
|
napisał: jarjar
postów: 40
umieszczony:
1 października 2008
19:17
|
|
Witam. Może ktoś coś napisze tu. Możliwe jest rozwiązanie tego wysłania e-maila lub nie? Czy ten kod dobry, a może dopisać tylko automatyczne uruchomienie Outlooka. Robię arkusz , żonie do pracy, który by przypominał jej o terminach przeglądów gwarancji wysyłał powiadomienie e-mailem.( SMS też by się przydał). Ponieważ żona ma tylko podstawy obsługi kompa, muszę to zrobić tak aby wszystko się działo automatycznie. A jej na monitorku mrugało przypomnienie i e-mail w skrzynce (sms). I stanąłem na tym że niby wysyła e-maila , ale żonka nie zapamięta , że należy odpalić MSOutlooka by się wysłało , ponieważ używa Outlooka Express do odbierania poczty. Tak to wygląda w szczegółach. Sorki za wypracowanie i czekam na jakąkolwiek podpowiedź.
Z poważaniem jarjar. |
|
|
napisał: jarjar
postów: 40
umieszczony:
29 września 2008
23:39
|
|
| Jeszcze jedno pytanko.Możliwe jest wysyłanie e-maili z Excela przy pomocy Outlook Express???Częściej go używam. |
|
|
napisał: jarjar
postów: 40
umieszczony:
29 września 2008
22:20
|
|
Wysyłanie e-maila z vba . Skorzystałem z kodu:
Sub wyslij_emaila()
' <<< important! >>>
'For this example click References on the Tools Menu, and select the
'Microsoft Outlook 9.0 object libraries.
Dim ol As Object, myItem As Object
'Create a Microsoft Outlook session
Set ol = CreateObject("outlook.application")
'Create a mail
Set myItem = ol.CreateItem(olMailItem)
'Add information to the new mail
adresat = "proszepodpowiedz@wp.pl" 'adresat wiadomości, jeśli wielu oddzielamy znakiem separacji ;
temat = "Powiadomienie o terminie przeglądu" 'tutaj temat wiadomości
tresc = "Proszę sprawdzić arkusz przypomnień" & vbCr & "numer"
With myItem
.To = adresat
.Subject = temat
.Body = tresc
.NoAging = True
.ReadReceiptRequested = False 'True jesli chcesz by przesłano potwierdzenie odczytu
.OriginatorDeliveryReportRequested = False 'True jesli chcesz by potwierdzenie odbioru
.Send ' Save jeśli chcesz zapisać w draft
End With
'Remove object from memory
Set ol = Nothing
End Sub
Problem jest taki : że arkusz nie wysyła e- maila tylko wpisuje do skrzynki nadawczej Outlooka i aby się wysłał, należy odpalić Outlooka.Można tak zrobić aby się realnie wysłał w tle ten e-mail??Jeśli tak to proszę o podpowiedź. |
|
|
 wstecz 1 dalej  wszystkich stron: 1
|
