napisał: Trebor postów: 1209
umieszczony: 6 października 2009 16:41
|
|
Istnieje bardzo duża szansa, że nie zrozumiałem z czym masz problem. Sugeruję w miejsce SaveAs wypróbować ActiveWorkbook.SaveCopyAs i tę kopię posłać mailem. Nie będzie problemu ze zmianą wartości komórki w skoroszycie pierwotnym.
Hej |
|
napisał: maciek303 postów: 1
umieszczony: 6 października 2009 10:48
|
|
Witam,
mam dwa przyciski do wysyłki.
pierwszy moge użyć tylko jak w komórce A1 jest wartość 1, jak jest wartość 2 musze użyć przycisku drugiego
przypuśćmy że jest wartość 2
używam drugiego przycisku, po użyciu przycisku wartość komórki A1 zmienia się na 1 i plik zostaje wysłany
jak od razu po wysyłce arkuszu przyciskiem drugim zrobić żeby wartość komórki A1 wracała do wartości 2 ???
jak może wyglądać taki kod i gdzie moge go umieścić ?
dla bliższego wyjaśnienia chodzi o to żeby po kliknięciu na przycisk drugi załącznik został wysłany z wartością 1 ale dalej miał wartość 2 - tylko żeby na czas wysyłki zmieniało tą wartość.
poniżej kod dla drugiego przycisku:
ActiveWorkbook.SaveAs Filename:=sciezka & Format(numer, "000") & "_123_plik.xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=True
plikdowysylki = sciezka & Format(numer, "000") & "_123_plik.xls"
Set ol = New Outlook.Application
Set myMail = ol.CreateItem(olMailItem)
With myMail
.BCC = UDW
.CC = DW
.To = odbiorca
.Importance = olImportanceHigh
.Attachments.Add (sciezka & Format(numer, "000") & "_123_plik.xls")
.Subject = Data & " 123_pliczek" & Format(numer, "000")
End With
tytuł = "Wysyłka Załącznika !"
treść = "Czy wysłać załacznik: " & Format(numer, "000") & "_123_plik.xls ?" _
& vbCr & vbCr & "Naciśnięcie OK jest równoznaczne z wysłaniem złącznika!" & vbCr & vbCr
If MsgBox(treść, vbInformation + vbOKCancel, tytuł) = vbOK Then
bSheetOK
myMail.Send
Text = Text & "Załącznik zapisano " & Chr(13) & Chr(10) & Chr(13) & Chr(10)
Text = Text & "I umieszczono w Outlook'u do wysyłki na skrzynkę xxxx@xxxxx.pl" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
Text = Text & "Sprawdź czy się wysłał !!!" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
reakcja = MsgBox(Text, vbInformation, "Załącznik " & Format(numer, "000") & "_123_plik.xls wysłano !!")
GoTo koniec
End If |
|
wstecz 1 dalej wszystkich stron: 1
|