[EXCEL] Αυτόματη αποστολή Email υπό προυποθέσεις

[kormos]

Καλησπέρα,

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

https://www.extendoffice.com/documents/excel/4656-excel-send-email-based-on-cell-value.html

Υπάρχει κάτι που θα μπορούσε να λειτουργήσει συνδυαστικά?

 

Ευχαριστώ για το χρόνο σας.

 

 

 

[MastroGiannis]

Καλησπέρα,

Εννοείς να φεύγει το email δίχως να εμφανίζεται το σχετικό παράθυρο του Outlook;

Αν ναι, αντί για Display, βάλε Send στη σχετική γραμμή κώδικα.

   With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "send by cell value test"
        .Body = xMailBody
        .Display   'or use .Send
    End With

 

[kormos]

24 λεπτά πριν, MastroGiannis είπε

Καλησπέρα,

Εννοείς να φεύγει το email δίχως να εμφανίζεται το σχετικό παράθυρο του Outlook;

Αν ναι, αντί για Display, βάλε Send στη σχετική γραμμή κώδικα.

   With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "send by cell value test"
        .Body = xMailBody
        .Display   'or use .Send
    End With

 

Σωστά,

Θα το δοκιμάσω σε ένα 2ωρο  που θα είμαι σπίτι και θα επανέλθω.

[kormos]

Ωραία, είναι εντάξει αυτό που ήθελα @MastroGiannis

Μια ακόμα ερώτηση αν είναι εφικτό...(το ψάχνω και εγώ παράλληλα).

Σε τιμές που θα βρίσκει πχ  < 30 αν είναι σε 3 διαφορετικά κελιά υπάρχει τρόπος στο text του κειμένου στο email να αναφέρει ποιά είναι αυτά τα κελιά; 

πχ  είναι το κελί A3, A6, A9

 

xMailBody = "Hi there" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2"

 

Ευχαριστώ εκ των προτέρων.

[MastroGiannis]

Από το αντικείμενο Range (κελί) που θα παίρνεις την τιμή/κριτήριο (ιδιότητα Value), θα παίρνεις και τη διεύθυνσή του (ιδιότητα Address).

Παράδειγμα:

If rngCell.Value < 30 Then
	strMessage = "Η τιμή του κελιού " & rngCell.Address & " είναι μικρότερη του 30."
End If