ID tematu: 27303
 |
generowanie odpowiedzi na zaznaczoną w Outlook wiadomość |
| Autor |
Wiadomość |
golly 
Exceloholic
Posty: 360
|
 Wysłany: 2012-01-16, 09:48 generowanie odpowiedzi na zaznaczoną w Outlook wiadomość
|
|
|
Nawiązując do makra generującemu wiadomość email w tym poście chciałbym zapytać czym w tym makrze zastąpić
| Kod: | | Set OutMail = OutApp.CreateItem(0) |
aby nie tworzył nowego emaila tylko robił "Odpowiedz" do zaznaczonej w Outlook wiadomości i wklejał na górze treść generowana w tym makrze ?
Może jednak zacytuję to makro:
| OShon napisał/a: |
| Kod: | Sub test()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range, zakr As Range
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
On Error GoTo cleanup
Set zakr = Range("b6:b" & Cells(Rows.Count, "b").End(xlUp).Row)
For Each cell In zakr
If cell.Value Like "*@*.*" And _
LCase(Cells(cell.Row, "f").Value) = "yes" Then
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = cell.Value
.Subject = "Potwierdzenie przyjęcia awizacji "
.Body = "Potwierdzamy przyjecie awizacji na dzień " & Cells(cell.Row, "e").Value _
& " towaru w ilości " & Cells(cell.Row, "d").Value _
& vbNewLine & vbNewLine & _
"Jeśli coś się nie zgadza proszę o maila zwrotnego lub kontakt telefoniczy " & vbNewLine & _
"Przyjęcie dostaw: pn-pt 10:00 - 18:00" & vbNewLine & vbNewLine & _
"Pozdrawiamy "
'You can add files also like this
'.Attachments.Add ("C:\test.txt")
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
End If
Next cell
cleanup:
Set OutApp = Nothing
Set zakr = Nothing
Application.ScreenUpdating = True
End Sub |
|
poproszę o pomoc
pozdrawiam
golly |
_________________
Excel 2003 |
|
 | ID posta:
144631
|
|
|
 |
|
EXCELFORUM.pl POLECA - Bezplatne triki prosto na skrzynke email
|
OShon
Excel Expert
Zaproszone osoby: 41
Pomógł: 620 razy
Posty: 2037
|
| Wysłany: 2012-01-16, 10:03
|
|
|
Oj golly, golly.
Masz mój art na temat odpowiedzi: Jedna odpowiedź do kilku adresatów
zamiast:
| Kod: | | Set OutMail = OutApp.CreateItem(0) |
można zastosować taką kontrukcję:
On Error Resume Next
| Kod: | Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set OutMail = ActiveExplorer.Selection.Item(1)
MyItem.Display
Case "Inspector"
Set OutMail = ActiveInspector.CurrentItem
Case Else
End Select
On Error GoTo 0
End Sub |
Jednakże jest ona dopuszczalna w przypadku kiedy procedurę realizujesz z Outlooka - a nie z Excela.
To też .To = cell.Value nie przejdzie.
Musisz odwołać się w Outlooku do obiektów w Excelu.
Konstrukcja podobna do tej: Export danych adresowych nadawców do Excela
czyli zwróć uwagę na: | Kod: | | XLApp.Workbooks.Open sciezka |
|
_________________
MVP Office System, moderator Outlook.pl|WSS.pl|CodeGuru.pl, praca: Business Developer, blog: VBATools |
|
 | ID posta:
144633
|
|
|
|
|
EXCELFORUM.pl POLECA - Bezplatne triki prosto na skrzynke email
|
golly
Exceloholic
Posty: 360
|
| Wysłany: 2012-01-16, 12:30
|
|
|
Dziękuję bardzo za pomoc. Super! Nie mam pytań :)
pozdrawiam
golly |
_________________
Excel 2003 |
|
| ID posta:
144657
|
|
|
|
|
|
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
|
Dodaj temat do Ulubionych
Wersja do druku
|
| |
| |
Regulamin
