[Γενικά] Ειδοποίηση όταν φτάσει η ημερομηνία

Λευτέρη σε ευχαριστώ ειναι ακριβως οτι ήθελα . Κατάλαβα πως λειτουργεί.

Μια τεελυταια ερώτηση που λογικά δεν γινεται αλλα θελω την αποψη σας .

Εαν στο κελί Κ2 βαλω μια λεξη send και το πατήσω υπάρχει δυνατότητα να στελνει email (το email θα το εχω καταχωρησει σε καποιο απο τα προηγουμενα κελιά )

Ευχαριστώ

[gr8styl]

Αρχική Δημοσίευση από Βασίλης Κ.

...Εαν στο κελί Κ2 βαλω μια λεξη send και το πατήσω υπάρχει δυνατότητα να στελνει email (το email θα το εχω καταχωρησει σε καποιο απο τα προηγουμενα κελιά )

Βασίλη
αν υποθέσω ότι στο D2 έχεις την διεύθυνση ηλεκτρονικού ταχυδρομείου, τότε
βάζοντας στο Κ2

=HYPERLINK("mailto:" & D2 ; "Send e-mail")

και
κάνοντας κλικ στο Κ2 που γράφει Send e-Mail
λογικά θα πρέπει να ανοίξει το Mail σου για αποστολή μυνήματος,
στην ηλεκτρονική διεύθυνση που περιέχεται στο κελί D2.

Δοκίμασέ το και πες μας αν έγινε χωρίς VBA.

Όσον αφορά την προσέγγιση με VBA νομίζω ότι αν ψάξεις στο φορουμ θα βρεις παραδειγμα.
Βέβαια το όλο ζήτημα εξαρτάται από τον προγραμμα ηλ. ταχυδρομείου που έχεις στον υπολογιστή σου αλλά και το όλο περιβάλλον που θα τρέχει η εφαρμογή.

Θανάσης
ΥΓ. Αν δεν με απατά η μνήμη μου έχει συζητηθεί/απαντηθεί το θέμα στο παρελθόν.

Σωστα θυμασαι ειχα ρωτησει κατι σχετικο αλλα οχι στο excel νομίζω

Θα δοκιμασω αυτο που λες . Ουσιαστικά δεν εχω καποιο πρόγραμμα σαν e-mail εχω gmail αλλά δεν με πειράζει αυτο το σεταρω στο outlook και τελειωσε το θεμα .

Το θεμα μου ειναι να παιρνει τα δεδομενα απο ενα κελί ή απο ενα εξωτερικο αρχειο .txt , word και να τα στελνει .

Για να μην υπερβάλω ξερω οτι αυτο το κανουν CRM προγραμματα αλλά για την δικη μου δουλεια ενα excel αν οντως γινεται ειναι ιδανικο.

Θα ενημερωσω οπως και να εχει !!

Ευχαριστώ

Θαναση καλημερα ,

Δοκιμασα το κώδικα που μου ειπες αλλά κατι δεν παιζει σωστά .

Συγκεκριμενα

Καταχωρώ στο κελί D2 το e-mail test@test.gr

Παω στο κελί K2 και γράφω =HYPERLINK("mailto:" & D2 & "Send e-mail")

Και στο κελί Κ2 εμφανιζει mailto:test@test.grsend e-mail , οταν πατησεις πανω του ανοιγει το outlook το οποιο εχει εχει στον αποστολέα το mailto:test@test.grsend e-mail

[gr8styl]

Καλημέρα Βασίλη.
Ο δαίμονας του τυπογραφείου το δεύτερο "&" πρέπει να είναι ελληνικό ερωτηματικό ";"

=HYPERLINK("mailto:" & D2 ; "Send e-mail")

Συγνώμη
Το διόρθωσα και στο αρχικό μήνυμα.

[Tasos]

Καλησπέρα!

Δείτε στo συνημμένο μερικά παραδείγματα αποστολής E-Mail με τη μέθοδο Hypelink()
και με τη βοήθεια της VBA (προϋποθέτει εγκατεστημένο Outlook καθώς και ένα λογαριασμό E-Mail) .


Φιλικά

Τάσος

[gr8styl]

Αρχική Δημοσίευση από Tasos

Δείτε στo συνημμένο μερικά παραδείγματα αποστολής E-Mail με τη μέθοδο Hypelink()
και με τη βοήθεια της VBA (προϋποθέτει εγκατεστημένο Outlook καθώς και ένα λογαριασμό E-Mail) .

Τάσο πληροφοριακά σου λέω ότι σε μη ελληνικό περιβάλλον (windows XP EN και Excel 2003 EN) τα ελληνικά στο θέμα/subject και στο μήνυμα/message body οι ελληνικοί χαρακτήρες εμφανίζονται "κινέζικα" (oxi unicode)

Τα λέμε
Θανάσης

[Tasos]

Θανάση το γνωρίζω αφού και εγώ όπως και εσύ δουλεύω τον περισσότερο χρόνο σε μη ελληνικούς υπολογιστές.
Άλλωστε το αρχείο το έκανα σε γερμανικό υπολογιστή και όπως καταλαβαίνεις....

Μπορείς να δοκιμάσεις τον τύπο:
=HYPERLINK("mailto:" & A2 &"?Subject="&EncodeString(D2) &"&cc="&B2&"&bcc="&C2 &"&body=" &EncodeString(E2); "Send e-mail")

Και τη συνάρτηση EncodeString() σε μια λειτουργική μονάδα:

Option Explicit

Function EncodeString(strText$) As String
    Dim Char$, strLen&, CharCode%, i&
    strLen = Len(strText)
    If strLen > 0 Then
        ReDim arrTMP(strLen) As String
        For i = 1 To strLen
            Char = Mid$(strText, i, 1)
            CharCode = AscW(Char)
            arrTMP(i) = Char
        Next i
        EncodeString = Join(arrTMP, vbNullString)
    End If
End Function

Όλα αυτά βέβαια συν τον περιορισμό των 220 χαρακτήρων στη συνάρτηση, τα αποφεύγουμε αν χρησιμοποιήσουμε τα παραδείγματα του δεύτερου και του τρίτου φύλλου του παραδείγματος μου αφού η VBA (όχι o VBE) τα πάει μια χαρά με τα Unicode.

Τα λέμε φίλε μου

Τάσος

[gr8styl]

Καλημέρα Τάσο.
Θα έλεγα ότι η EncodeString λύνει το πρόβλημα.
Αν δεν κάνω λάθος χθές που που είδα το αρχείο σου στο γραφείο αν θυμάμαι καλά ούτε το φύλλο με VBA και ελληνικα έδινε σωστά ελληνικά. (δεν είμαι σίγουρος όμως)

Η μη σωστή υποστήριξη των ελληνικών με χρήση της HYPERLINK ήταν και ο λόγος που δεν μίλησα για τις παραμέτρους Subject, Body κλπ στην αρχική μου πρόταση στο Βασίλη. Απ' την άλλη ήθελα να αποφύγω την VBA για να μην τον δυσκολέψω περισσότερο.

Ευχαριστώ τα λέμε (εντός του 2012 ελπίζω. Χαθήκαμε ρε φίλε ).
Θανάσης
ΥΓ Θα σου πρότεινα να το ανεβάσεις στα χρήσιμα.

[Tasos]

Καλημέρα Θανάση μου.

Με χρήση VBA δεν μπορεί παρά να λειτουργήσει σωστά αφού παίρνει τις συμβολοσειρές κατευθείαν από περιοχή του φύλλου εργασίας (το οποίο είναι καθαρά Unicode) και τις τοποθετεί στη μνήμη.

Το γνωρίζω πολύ καλά γιατί ισχύει και στα υπόλοιπα προγράμματα του Office.

Δεν θα λειτουργήσει σωστά αν οι συμβολοσειρές προς απόδοση είναι αποθηκευμένες μέσα σε κάποια λειτουργική μονάδα.

Για παράδειγμα:

Σε υπολογιστή με Τοποθεσία "Ελληνικά" σε μια λειτουργική μονάδα σε οποιοδήποτε πρόγραμμα
υποστηρίζει VBA γράφουμε τον παρακάτω κώδικα:

Sub Test
MsgBox "Γράφω ελληνικά"
End sub